|
いつもお世話になっております。また、質問させて下さい。
単価の列を、まず検索し、同行の最終列の値を代入させたいのですが、
最終列には、数式が入っています。
最終列には、単価列と同行あります。最終行は浮動なので、下記コードは
最高1000と設定しています。
'列
Dim i As Integer
'最終列
Dim J As Integer
'行
Dim k As Integer
Application.ScreenUpdating = False
'一番左の2行目
J = Range("IV2").End(xlToLeft).Column
For i = J To 1 Step -1
If InStr(Cells(2, i).Value, "単価") > 0 Then
'基準行を3行目とする
k = 3
Do While k < 1000
Cells(k, i).Value = Cells(k, J).Value
k = k + 1
Loop
End If
Next i
Application.ScreenUpdating = True
End Sub
「値のみ」代入させるには、Transpose等を記述するのでしょうか?
よろしくお願い致します。
|
|