0

以下は、私が現在使用しているvbaコードです。下部で詳細を編集します。

Sub AddBlankRows()
'
Dim iRow As Integer
Range("a1").Select
'
iRow = 1
'
Do
'
If Cells(iRow + 1, 1) <> Cells(iRow, 1) Then
    Cells(iRow + 1, 1).EntireRow.Insert shift:=xlDown
    iRow = iRow + 2
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, 2).Text = ""
'
End Sub

誰かが尋ねたStackoverflowsの質問の1つで（グーグルで）見つけた上記のvbaコードは、私の目的のために機能しました。しかし、それがどの質問から生じたのかについての情報を提供するために、私はそれを見つけることができません.

私は今それを使用しており、うまく機能しています。ただし、さらに行を追加する必要があります。そのため、必要に応じて手動で行を挿入する必要があります。vbaコードにそれをさせたいと思います。グループ化された各セルの後に 1 行を追加する代わりに。3行追加する必要があります。上記のマクロを編集して、1 行ではなく 3 行を表示できるようにしてください。

これは私の最初の投稿であり、事前にすべての人に感謝します. グレースサラ

4

1 に答える 1

0

これは、既存の数式を変更してさらに 2 行を追加する最も侵襲性の低い方法です。

Sub AddBlankRows()
'
Dim iRow As Integer
Dim x as Integer
Range("a1").Select
'
iRow = 1
'
Do
'
If Cells(iRow + 1, 1) <> Cells(iRow, 1) Then
    For x = 1 To 3
        Cells(iRow + 1, 1).EntireRow.Insert shift:=xlDown
    Next x
    iRow = iRow + 4
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, 2).Text = ""
'
End Sub
于 2013-11-14T16:23:14.290 に答える