cat-360807_960_720


A列の2行目以降のセルの末尾に”部”を追加します。


Sub 文字列追加()

 Dim i As Integer

  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

   Cells(i, 1).Value = Cells(i, 1).Value & ""

  Next i

End Sub
 

グラフィックス32