| |
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
結局、自力回答は無理のようですので教えてください。
「納品書」Ｃ５セルが「2」Ｃ２セルと一致すると「納品書」Ｃ10-14の一番上の空白セルとその下のセルに「2」Ｄ２セルの値が入力され終了してしまいます。まず、「納品書」Ｃ５セルが「2」Ｃ２セルと一致すると「納品書」Ｃ10-14の一番上の空白セルだけに「2」Ｃ２セルの値を入力したい。
その処理が終わったら、「納品書」Ｃ５・20・35・・・セルが「2」Ｃ3セルと一致すると「納品書」シートで該当するセルの下5−9の一番上の空白セルだけに「2」Ｄ３セルの値を入力したいのですが。
|
|
ほい
- 05/3/10(木) 16:03 -
