2017-05-06から1日間の記事一覧

VBA格納庫

Sub 表まとめ() Dim i As IntegerDim j As IntegerDim cnt As IntegerDim Str As StringDim Tmp As String For i = 2 To 100 cnt = 2 Str = Cells(i, 1).Value' Debug.Print Cells(i, 1).Value Sheet2.Cells(i, 1) = Cells(i, 1).Value Str = "" If Cells(i,…