0

カスタマイズされた注文を入力するために使用されるワークシートから空白行を削除するマクロを開発しています。行 7、8、9、および 12 にコンテンツがあるとします。12行目の内容を10行目に移動したい。

これまでのところ、列 c の最後の占有行を特定し、列 e の行のセルが空白かどうかを識別しました。

ここで、0 (空白) または 1 (占有) のいずれかの値を配列に入れたいと考えています。石 (1) の値を 1 または 0 に設定するコード行でエラー (オブジェクトが必要) が発生します。

何がうまくいかないのですか？

  Dim ws As Worksheet
Dim rng1 As Range
Set ws = Sheets("Belmont")
Set rng1 = ws.Columns("c").Find("*", ws.[c1], xlValues, , xlByRows, xlPrevious)
Dim zen As String
zen = rng1.Address(0, 0)
Range(zen).Select
Set ruby = Window.ActiveCell.Row - 11
Dim stones() As Boolean
ReDim stones(1 To ruby)
If IsEmpty(ActiveCell.Offset(2, 0)) Then
Set stones(1) = 0
Else
Set stones(1) = 1
End If
msg55 = MsgBox(stones(1), vbDefaultButton1, "Gekko")
4

3 に答える 3

1

列Cが空白のすべての行を削除する場合は、次のようにします。

Sub dural()
    Dim r As Range
    Set r = Range("C:C").Cells.SpecialCells(xlCellTypeBlanks).EntireRow
    r.Delete
End Sub

ループせずにこれを達成します。

于 2013-08-19T15:21:59.407 に答える