2017-05-06から1日間の記事一覧
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,…