質問: お世話になります。 VBAの質問なのですが 勘定科目コード A列 1000101 の場合 J列の数値はそのまま K列の数値にマイナスを付ける。
回答: こういうことですか? Sub Macro1() For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Select Case Left(Range("A" & i), 1) Case 1 Range("K" & i) = Range("K" & i) * -1 Case 3 Range("J" & i) = Range("J" & i) * -1 End Select Next i End Sub