エクセル2007です。
画像のようにA列に値を入れて、B列に半角にする関数を入れて、最終行までオートフィルをしたいのですが、
---------------------------------------------------------
Sub test()
Dim 最終行 As Long
最終行 = Cells(65536, 1).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=ASC(RC[-1])"
Selection.AutoFill Destination:=Range("b1:b" & 最終行), Type:=xlFillDefault
End Sub
---------------------------------------------------------
をすると、
Selection.AutoFill Destination:=Range("b1:b" & 最終行), Type:=xlFillDefault
の部分で、
[実行時エラー'1004'アプリケーション定義またはオブジェクト定義エラー]
になってしまいます。
原因と対策を教えてください。ご回答よろしくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんばんは!
すでに適切な回答が出ていますので、余計なお世話かもしれませんが・・・
B2セル以降に数式を入れたい訳ですよね?
オートフィルではありませんけど、
Sub test()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 2), Cells(i, 2)).Formula = "=ASC(A2)"
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.1
- 回答日時:
掲示された絵の通り、「B2を選択した状態」から開始して、「B1から最下行まで」オートフィルしたいのですか?
もしもホントにそれが正しい意図なのでしたら、マクロは次のようになります。
sub macro1()
dim r as long
r = range("A65536").end(xlup).row
activecell.formular1c1 = "=ASC(RC[-1])"
range(range("B1"), selection).autofill destination:=range("B1:B" & r)
end sub
それともオートフィルさせたい対象範囲の方が実は間違っているなら、
sub macro2()
dim r as long
r = range("A65536").end(xlup).row
activecell.formular1c1 = "=ASC(RC[-1])"
activecell.autofill destination:=range(activecell, cells(r, "B"))
end sub
のようになります。
その場合実際には、わざわざオートフィルを使わなくても
sub macro2()
dim r as long
r = range("A65536").end(xlup).row
range(activecell, cells(r, "B")).formular1c1 = "=ASC(RC[-1])"
end sub
などのようにすれば出来ます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
(UWSC)エクセルのセルの値を読...
-
DHCPサーバで複数のレンジを指...
-
再質問です。マクロの修正箇所...
-
【ExcelVBA】値を変更しながら...
-
VBA シートをコピーする際に Co...
-
マクロの「SaveAs」でエラーが...
-
ワイルドカード「*」を使うとう...
-
エクセル マクロ オートフィ...
-
エクセルVBAが途中で止まります
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセルファイルを開いた回数...
-
B列の最終行までA列をオート...
-
VBAマクロ実行時エラーの修正に...
-
Worksheets メソッドは失敗しま...
-
特定の文字がある行以外を削除...
-
Excelで、あるセルの値に応じて...
-
罫線の斜線を自動で引くマクロ
-
エクセル 上下で列幅を変えるには
-
VLOOKUPの列番号の最大は?
-
Excel VBAでのWorksheet_Change...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
(UWSC)エクセルのセルの値を読...
-
VBA-指定した範囲で重複しない...
-
IPアドレスを検査する関数
-
EXCEL VBA 別シートの文字を...
-
VBAでオートフィルができません
-
【Excel2002VBA】Destinationを...
-
DHCPサーバで複数のレンジを指...
-
MATLABによる整定時間の求め方
-
VBA Excel
-
ExcelのVBAで教えてください。 ...
-
VBAマクロ実行時エラーの修正に...
-
エクセル マクロ オートフィ...
-
VBA シートをコピーする際に Co...
-
Worksheets メソッドは失敗しま...
-
エクセルで複数のシートのクリ...
-
エクセルで特定の文字列が入っ...
-
Excelで、あるセルの値に応じて...
-
あああ..ああい..ああう とい...
-
エクセルで離れた列を選択して...
-
B列の最終行までA列をオート...
おすすめ情報