Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35500 / 76732

←次へ　｜　前へ→


	【46431】数式の列データ最後までのオートフィル

acochaco - 07/2/3(土) 9:42 -


	引用なし

	パスワード

任意の列に、別シートの数字を入力させたいと思っています。
列は、浮動の為
1.タイトルを検索して、一行下を指定し数字を他シートから貼り付け
2.列の最後のデータまでオートフィルを実行
させたいと思っております。

Sub 価格自動入力()

　 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]"
　
　　Selection.AutoFill Destination:=Range(Selection, ActiveCell.xlLastCell), Type:=xlFillValues
End If
Next i
Application.ScreenUpdating = False
End Sub

としていますが、エラーがでます。（オブジェクトはサポートしていません。）
どうぞよろしくお願い致します！

0 hits

▼

【46431】数式の列データ最後までのオートフィル acochaco 07/2/3(土) 9:42

≪