C列に文字が入力されていて、A列が空白の場合には A列に本日の日付を入力する Sub 日付加算() Dim 初回連絡日 As DateDim 経過日 As DateDim 行 As Long For 行 = 2 To 11 初回連絡日 = Cells(行, 2) 経過日 = DateAdd("d", 14, 初回連絡日) If Cells(行, 3)…

Sub 別のシートからVLookup2() '参照範囲の宣言 Dim 参照範囲 As Range '参照範囲はシート3のテーブル Set 参照範囲 = Sheets("Sheet3").Range("A1").ListObject.Range '検索値宣言 Dim 検索値 As Variant '行番号宣言 Dim 行番 As Variant For 行番 = 2 To …