Sub 条件一致転記() Dim 転記先シート As Worksheet Dim 参照シート As Worksheet Dim 転記先行番号 As Long Dim 参照行番号 As Long Set 転記先シート = Worksheets("Sheet1") Set 参照シート = Worksheets("Sheet2") For 転記先行番号 = 2 To 転記先シート…