- 締切済み
VBAでオートフィルができません
エクセル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'アプリケーション定義またはオブジェクト定義エラー] になってしまいます。 原因と対策を教えてください。ご回答よろしくお願いします。
- vgytre4
- お礼率77% (7/9)
- オフィス系ソフト
- 回答数2
- ありがとう数0
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは! すでに適切な回答が出ていますので、余計なお世話かもしれませんが・・・ 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
- keithin
- ベストアンサー率66% (5278/7940)
掲示された絵の通り、「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
- ExcelVBAでのオートフィルの使い方
Excel2003です。 Bセルに入っている値をHセルまで右方向にオートフィルするマクロを組んでいるのですが、うまく動きません。 Bセルの最終行は変動し、オートフィルはBセルの最終行と最終行の1つ手前の2つ分をオートフィルしたいのです。 Range("B1").End(xlDown).Offset(-1, 0).Select Range(ActiveCell, ActiveCell.Offset(0, 7)).AutoFill Type:=xlFillDefault Range("B1").End(xlDown).Offset(0, 0).Select Range(ActiveCell, ActiveCell.Offset(0, 7)).AutoFill Type:=xlFillDefault これで、オートフィルしようと思っていたのですが、 Range(ActiveCell, ActiveCell.Offset(0, 7)).AutoFill Type:=xlFillDefault この式の実行で、 実行時エラー'1004' RangeクラスのAutoFillメソッドが失敗しました と、出てしまいます。 Selection.AutoFill Destination:=Range("B23:H23"), Type:=xlFillDefault こういうマクロなら動くので、AutoFillの後に明確な範囲指定をしていないせいなのでしょうか? 最終行が変動してしまう為、このような明確な範囲指定をする事ができません。 いい解決方法はないでしょうか?
- ベストアンサー
- オフィス系ソフト
- EXcelでオートフィルのパラメータを変数化
お世話になります。 [変更前]マクロで「("A3:B72")」を変数化したくて[変更後]のようにした。 結果エラーになります。 実行時エラー'91' オブジェクト変数またはWithブロック変数が設定されていません。 [変更前] Sub 賞与明細MCR() Range("A3:B4").Select Selection.AutoFill Destination:=Range("A3:B72"), Type:=xlFillDefault Range("A3:B72").Select End Sub [変更後] Sub 賞与明細MCR() Dim 処理 As Characters 処理 = "A3:" & CStr(Range("d1")) Range("A3:E4").Select Selection.AutoFill Destination:=Range(処理), Type:=xlFillDefault Range(処理).Select End Sub
- ベストアンサー
- オフィス系ソフト
- rangeからcellsに帰る場合の書式
Sub Macro1() Range("A1").Activate Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault End Sub をRangeではなくCellsに変えたいのですが、 Sub Macro2() Range("A1").Activate Selection.AutoFill Destination:=Range(Cells(1, 1) & ";" & Cells(10, 1)), Type:=xlFillDefault End Sub だと、 実行時エラー1004になってしまいます。 Sub Macro3() Range("A1").Activate Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(10, 1)), Type:=xlFillDefault End Sub だとうまくいくのですが、 なぜRengeの時は、「;」なのに、cellsの時は、「、」でいいのでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでボタンを作ったシートとVBAを実行するシートを変えたい
シート1にボタンを作成し、 そのボタンを押すと実行するVBAを作成しました。 そこで、VBAを実行するシートの指定はできるのでしょうか。 例えば、ボタンを押すと、 10行から20行まではシート2で実行させ、 30行から40行まではシート3で実行させたいと考えています。 可能でしょうか。 どうぞ宜しくお願いします。 *********************************************** 作成したVBA。ボタンはシート1にあります。 *********************************************** Private Sub CommandButton1_Click() *********************************************** ここからはシート2で実行させたい *********************************************** Range("E2").Select ActiveCell.FormulaR1C1 = "10" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E101"), Type:=xlFillDefault Range("E2:E101").Select *********************************************** ここからはシート3で実行させたい *********************************************** Range("A2").Select ActiveCell.FormulaR1C1 = "100" Range("A2").Select Selection.AutoFill Destination:=Range("E2:E101"), Type:=xlFillDefault Range("A2:A101").Select End Sub
- ベストアンサー
- Visual Basic
- 実行時エラー1004 オートフィルができない
エクセルなのですが、A列の文字にたいする数式をB列に入れて最終行までオートフィルするマクロを作りたいのですが実行時エラー1004が発生してしまいます。 Sub macro1() Dim LastRow As Long LastRow = Range("A65536").End(xlUp).Row Range("B1").Value = "=LEN(A1)" Range(Range("B1"), Selection).AutoFill Destination:=Range("B1:B" & LastRow) End Sub このコードです。 Range(Range("B1"), Selection). ここら辺が怪しいかなと思ってるのですが、どうすればいいでしょうか? オートフィルを使わずにfor~nextでやる方法も知ってますが、オートフィルでやる方法をご教授いただきたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAのAutoFillの使い方について
Excel97のマクロでAutoFillを使おうとしているのですが、エラーが出て実行できません。 何も表示されていないシートでコマンドボタンを押すと、AutoFillを使ってA1セル~E1セルとA2セル~E2セルに数字の1~5が表示されるようにしたいと考えています。 下記のようにマクロを書いたところ、A1~E5はうまくできたのですが、 「Selection.AutoFill Destination:=ActiveCell.Range("A2:E2"), Type:=xlFillSeries」 の行でエラーが発生します。 「実行時エラー:1004 RangeクラスのAutoFillメソッドが失敗しました。」と表示されます。 Private Sub CommandButton1_Click() ActiveSheet.Range("A1").Select ActiveCell.FormulaR1C1 = "1" Selection.AutoFill Destination:=ActiveCell.Range("A1:E1"), Type:=xlFillSeries ActiveSheet.Range("A2").Select ActiveCell.FormulaR1C1 = "1" Selection.AutoFill Destination:=ActiveCell.Range("A2:E2"), Type:=xlFillSeries End Sub どなたかエラーの原因を教えていただけないでしょうか? よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAの保存
毎月異なった新しいエクセルファイルに同じような加工を施すため、VBAを書きました。対象はActivesheetとしています。 で、質問は、この新しいエクセルファイルの標準モジュールにいちいちこのVBAをコピーペーストせずに実行する方法です。 きっと何かあるとは思うのですが・・・・。 VBAは次のような簡単なものです。 Sub 加工1() Dim e As Integer, s As String, n As String e = Range("A4").End(xlDown).Row s = Replace(Mid(Range("A2"), 8, 5), "年", "") & "-" n = Replace(Mid(Range("A2"), 19, 5), "年", "") & "-" Range("A1:C2").MergeCells = False Columns("B:B").Select Selection.Insert Shift:=xlToRight Columns("A:A").Select Selection.Insert Shift:=xlToRight Columns("C:C").Select Selection.NumberFormatLocal = "G/標準" Range("B3").Select Selection.AutoFill Destination:=Range("B3:C3"), Type:=xlFillDefault Range("B3").Select ActiveCell.FormulaR1C1 = "商品番号1" Range("C4").Select ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],10)" Range("C4").Select Selection.AutoFill Destination:=Range("C4:C" & e), Type:=xlFillDefault Range("A3").Select ActiveCell.FormulaR1C1 = "抽出年月日" Range("A4").Select ActiveCell.FormulaR1C1 = s & n & 1 Range("A4").Select Selection.AutoFill Destination:=Range("A4:A" & e), Type:=xlFillDefault Rows("3:3").Select Selection.Insert Shift:=xlDown Range("B1:E1").MergeCells = True Range("B2:E2").MergeCells = True ActiveSheet.Name = "提出用" End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでのオートフィル
Range("A1").Select Selection.AutoFill Destination:=Range("A1:A11"), Type:=xlFillCopy Range("A1:A11").Select 上記のスクリプトで、 Rangeのところを 隣あった列の最下段まで と、言うような指定はどうすればいいのでしょうか? B列の最後の行と隣り合ったセルまで、 A1のセルをコピーしたい場合です。
- ベストアンサー
- オフィス系ソフト
- Excel 簡潔
Sub 問10率() Range("AY994").Select ActiveCell.FormulaR1C1 = "=RC[-49]/R1007C[-49]" Range("AY994").Select Selection.AutoFill Destination:=Range("AY994:CT994"), Type:=xlFillDefault Range("AY994:CT994").Select Selection.AutoFill Destination:=Range("AY994:CT1007"), Type:=xlFillDefault Range("AY994:CT1007").Select Range("AY1011").Select ActiveCell.FormulaR1C1 = "=RC[-49]/R1020C[-49]" Range("AY1011").Select Selection.AutoFill Destination:=Range("AY1011:CT1011"), Type:=xlFillDefault Range("AY1011:CT1011").Select Selection.AutoFill Destination:=Range("AY1011:CT1020"), Type:=xlFillDefault Range("AY1011:CT1020").Select End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー A B 中略 AV AW 993行 ラベル 北海 ~ 沖 合計 994行 魚 21 ~ 9 110 中略 1006行 他 60 ~ 空欄 200 1007行 合計 11 ~ 148 590 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー AX AY 中略 CS CT 993行 ラベル 北海 ~ 沖 合計 994行 魚 0.2% ~ 0.0% 0.2% 中略 1006行 他 0.3% ~ 0.0% 0.3% 1007行 合計 100.0% ~ 100.0% 100.0% ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー AX AY 中略 CS CT 993行 ラベル 北海 ~ 沖 合計 994行 魚 B994/B$1007 ~ AV994/AV$1007 AW994/AW$1007 中略 1006行 他 B1006/B$1007 ~ AV1006/AV$1007 AW1006/AW$1007 1007行 合計 B1007/B$1007 ~ AV1007/AV$1007 AW1007/AW$1007 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー このコードをもっと短くする方法を教えてください。よろしくお願いします。 1個目と2個目の表は横につながっています。3個目は2個目の表の%を出した計算です。 値でなく式が入っています。空白のところは0.0%と表します。 3個目は実際はありません。
- ベストアンサー
- Excel(エクセル)
- 縦方向にオートフィルをしたい
Excel2003 2行ずつ結合したセルシートを使用しています。 F5とF6は結合、F7とF8も結合、G5とG6は結合、G7とG8は結合・・・とF~Qまで全て2行ずつ結合してあります。 F列~Q列の値が入ってるセルまでオートフィルをする為に、下記マクロを実行していますが、うまく動きません。 Range("F5:Q6").Select Range("F5:F6").AutoFill Destination:=Range(Range("F5:Q6"), Selection.End(xlDown)), Type:=xlFillSeries 実行時エラー1004 アプリケーション定義またはオブジェクトのエラーです ちなみに横方向のオートフィルはうまくいっています。これは行数が固定の為楽だった、というのがありますが Range("F5:F6").AutoFill Destination:=Range("F5:Q6"), Type:=xlFillSeries 2行ずつ結合したセルシートで最終行までオートフィルする場合はどうすればいいのでしょうか?
- ベストアンサー
- その他MS Office製品