Excelマクロvbaの質問です。

補足

Sub 更新() Call 初期化 For i = 2 To ws.Range("B1").End(xlDown).Row If ws.Cells(i, "B").Value = main_ws.Range("C2").Value Then ws.Range(ws.Cells(i, "A"), ws.Cells(i, "G")).Value = _ WorksheetFunction.Transpose(main_ws.Range("D4:D9").Value) MsgBox "更新完了" Call 終了 End End If Next i MsgBox "該当申請が見つかりません" Call 終了 End Sub

Excel | Visual Basic16閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:6/19 22:19