ExcelVBAで簿記的な勘定科目を転記したい
Q&A
ExcelVBAで簿記的な勘定科目をmainシートと、明細シートを参照して、明細シートに勘定科目を転記したいのですが、勘定科目をi4:i10が正しいのですが、実行すると明細シートの上から下の順に順番に勘定科目がなってしまいます。i4:i10の正しい順にするには、どうすれば良いでしょうかよいでしょうか?
大変、お手数ですが、どなたかご教示頂けないでしょうか?VBA初心者と、初投稿なので、投稿がいたらなかったら、すみません。
‘ Sub 勘定科目転記()
Dim j As Lon
dim maxrow as long
maxrow = Cells(Rows.Count, 1).End(xlUp).Row
For j = 4 To maxrow
If ThisWorkbook.Sheets("明細").Cells(j, 1).Value = Worksheets("main").Cells(j, 2).Value Then
Worksheets("明細").Cells(j, 5) = ThisWorkbook.Sheets("main").Cells(j, 3)
Else
Worksheets("明細").Cells(j, 5) = ThisWorkbook.Sheets("main").Cells(j, 2).Offset(0, 1)
End If
Next j
End Sub ‘
ネット検索