ある条件で、別の行ベースのすぐ下に行を挿入しようとしていました。これで、このコードは多くのシートをループします。1枚のシートでは問題なく動作しますが、次のシートで同じ機能を実行しようとするとエラーが表示されます。誰でも問題を解決するのを手伝ってくれますか? 私が使用していたコードを以下に示します。
Sub test()
Dim a As Worksheet
Dim lngRow As Long
Dim s As String
Dim z As Variant
s = "Sheet1,Sheet2"
z = VBA.Split(s, ",")
For Each i In z
Set a = Sheets(i)
For lngRow = a.UsedRange.Rows.Count To 1 Step -1
If UCase$(a.Cells(lngRow, 2).Value) = "R" Then
a.Range("A" & CStr(lngRow + 1)).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next lngRow
Next i
End Sub
エラーはこの行に来ています:
a.Range("A" & CStr(lngRow + 1)).Select