|
Help機能がついていないので、本を見てFor Nextを使ってみましたが
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)). _
SpecialCells(xlCellTypeBlanks).Cells(1).Select
Selection = Worksheets("2").Range("d1").Offset(i, 0)
End If
End With
Next h
End Sub
結局、自力回答は無理のようですので教えてください。
「納品書」C5セルが「2」C2セルと一致すると「納品書」C10-14の一番上の空白セルとその下のセルに「2」D2セルの値が入力され終了してしまいます。まず、「納品書」C5セルが「2」C2セルと一致すると「納品書」C10-14の一番上の空白セルだけに「2」C2セルの値を入力したい。
その処理が終わったら、「納品書」C5・20・35・・・セルが「2」C3セルと一致すると「納品書」シートで該当するセルの下5−9の一番上の空白セルだけに「2」D3セルの値を入力したいのですが。
|
|