QNo.5991955の追加質問です。
QNo.5991955の追加質問です。
下記マクロだと1行目からAを追加してしまうのですが、
1行目は飛ばして、2行目から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
お礼
ご丁寧且つ詳細なお答をいただきありがとうございました。 「シャク」であることで納得できました。 次回植物園を訪問時には「ソクラテスの血」の有無を確認してきたいものと 思っています。 また、野山を歩くときにも「ドクニンジン」と「シャク」を意識して見てきたいと 考えています。 koredewaさま、yukiyouseiさまから戴いた有益・高レベルなご回答に感謝しております。