QNo.5991955の追加質問です。

質問

QNo.5991955の追加質問です。
下記マクロだと１行目からAを追加してしまうのですが、
１行目は飛ばして、２行目からAを追加をするマクロを教えてください。

Dim R As Long
　For R = 1 To book.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
　　If book.Sheets(1).Cells(R, "A") <> "" Then
　　　book.Sheets(1).Cells(R, "A") = "A" & book.Sheets(1).Cells(R, "A")
　End If
　Next R

回答No.1

myRange · ベストアンサー

前回の質問に回答したので、これも。。。

＞For R = ▲1 To book.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row

▲の数値が開始行なので
２行目からの場合は、そこを２に変えるだけです。

For R = 2 To book.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row

以上です。