|
かみちゃん さんさん、ご回答ありがとうございました!
列の最終セルの指定方法はわかりました。
>そこで、以下のようにします。
>
>Sub Sample1()
> '価格自動入力
> Dim i As Integer
> Application.ScreenUpdating = False
> '3行目で検索
> For i = Range("IV3").End(xlToLeft).Column To 1 Step -1
> If InStr(Cells(3, i).Value, "価格") > 0 Then
> Cells(4, i).FormulaR1C1 = "=Sheet1!R[-1]C[-5]"
> If Range(Cells(4, i), Cells(Rows.Count, i).End(xlUp)).Count > 1 Then
> Cells(4, i).AutoFill Destination:=Range(Cells(4, i), Cells(Rows.Count, i).End(xlUp)), Type:=xlFillValues
> Selection.AutoFill Destination:=Range(Selection, ActiveCell.xlLastCell), Type:=xlFillValues
> End If
> End If
> Next i
> Application.ScreenUpdating = False
>End Sub
教えて頂いたものを記述しましたが、オートフィル昨日が
作動しませんでした。。いろいろやってみましたが
どうも自力では力不足で、
もう一度教えていただけますでしょうか。。
If Range(Cells(4, i), Cells(Rows.Count, i).End(xlUp)).Count > 1 Then
ここの、1より大きかったらという意味もすみませんが
教えて下さい。
よろしくお願いいたします。
|
|