|
▼ほい さん:
>Sub ff()
'Dim i As Variant
>Dim h As Variant
'Dim nouhin As Variant
>Dim data As Variant
'i = 1
>For h = 1 To 10
>'
>data = Worksheets("2").Range("c1").Offset(h, 0)
>With Worksheets("納品書").Range("c5").Offset(h * 15 - 15, 0)
>If (.Value) = data Then
'Range(Cells(i * 15 - 5, 3), Cells(i * 15, 3)). _
Range(Cells(h * 15 - 5, 3), Cells(h * 15, 3)). _
>SpecialCells(xlCellTypeBlanks).Cells(1).Select
'Selection = Worksheets("2").Range("d1").Offset(i, 0)
Selection = Worksheets("2").Range("c1").Offset(h, 0)
>End If
>End With
>Next h
>End Sub
やりたい動作がいまいちつかめませんが、以前のおっしゃっていた内容ですと
上記の様な感じでしょうか?
|
|