エクセルマクロでセル範囲を指定する方法について教えてください
- エクセルマクロで特定のセル範囲を指定する方法について教えてください。
- AA列からAE列までのセル範囲をコピーする方法を教えてください。
- 具体的なコード例として、Range関数を使ってAA列の最初のセルからAE列の最後のセルまでを指定する方法を教えてください。
- ベストアンサー
セル範囲の指定方法について教えて下さい
エクセルマクロ勉強中です。 いつも皆様のご回答をもとに勉強させて頂いております。 下記を行いたいのですが、うまくいきません。 AA列を検索（AA1から最終セルまでは空白セル無し）し、AA1からAEまでをコピー したいです。AEの最終行はAAで検索した最終行となります。 AA10が最終行であったならば、コピー範囲はRange("AA1：AE10")。 AA AD AE 1 1 0 空白 2 1.5 2 空白 3 2 4 0.0 4 2.5 6 0.0 ・ ・ ・ ・ ・ ・ ・ ・ 11 空白 Range("AA1", Range("AA1").End(xlDown).End(xlToRight)).Select Selection.Copy 上記ですとAD列までは選択されますが、AEまで列までを選択するには どうしたらよいのでしょうか？ ご教示頂きたく宜しくお願い致します。
- vesper580109
- お礼率80% (55/68)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
多分ですがAE10ガ空白なのでは？列の最終はAEで固定でしょうか？ 固定でいいなら Range("AA1", "AE & RANGE("AA1").End(xlDown).Row).Select でいいのでは？
関連するQ&A
- Ｅｘｃｅｌのセル選択範囲の指定について
Ｅｘｃｅｌのセル選択範囲の指定について d = Range("A65536").End(xlUp).Row Range("A1:K" & d).Select これでやると Ａ１からk列のデータの最後の（データの入っている行）までを選択しますが このk列というところを n = ActiveSheet.Range("A1").End(xlToRight).Columnを使いKでなくデータのある列ｎを使った表現に変えたい。どうすればいいか。
- ベストアンサー
- オフィス系ソフト
- 空白までのデータを範囲指定する
EXCEL VBAにて教えてもらいたい事があります。 空白までの行列を範囲指定したいのです。 A B C D 1 1123 123 12 57 2 32 1 5 52 3 2 98 852 11 4 65 2 72 1 A列からD列の行が空白になるまでの範囲を指定する マクロを教えてほしいです。 A列の最終行の次の行にカーソルを合わせるマクロはわかるのですが 範囲を指定する方法がわかりません。 よろしくお願いいたします。 最終行の次の行にカーソルを合わせるマクロ Range("A1").End(xlDown).Select ActiveCell.Offset(rowOffset:=1).Activate Selection.Copy
- ベストアンサー
- その他([技術者向] コンピューター)
- エクセルＶＢＡ セルの値で、複数の列範囲を同時に
セルの値を利用して複数の列範囲を選択したいです セルＡ１に ３ と入力されていて、ＡＡ列がアクティブの場合 Range("ＡD:ＡF,ＡJ:ＡL").Select の様に、アクティブ列から３列空けて、３列選択、３列空けて、３列選択の様にしたいです ＡＡ、アクティブ ＡＢ ＡＣ ＡＤ、選択 ＡＥ、選択 ＡＦ、選択 ＡＧ ＡＨ ＡＩ ＡＪ、選択 ＡＫ、選択 ＡＬ、選択 ＡＭ
- ベストアンサー
- Excel（エクセル）
- 途中に空白行や列があるデータ範囲
エクセル2003です。 セルA1からセルC50までデータがあり 10行目と20行目は全て空白、 セルC39が空白で セルE55、F57、G55にはデータがある の状態で以下の構文ですと Sub 範囲コピー1() Range("B3").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy End Sub 途中に空白行や列、空白セルがあり さらに離れた所E55、F57、G55に データが有るのにもかかわらず セルB3からセルG57までを選択してクリップボードにコピー してくれます。 ですが問題がありまして 上記のシートにて A45～F50を選択してDeleteをし、 さらにセルのF55、G55もDeleteして データ範囲を セルA1～E44とセルE55のみにしてからから 上記構文を実行すると セルB3からセルE55を選択してクリップボードにコピー してほしいのに、 データ削除前と同様の セルB3からセルG57を選択してクリップボードにコピー されてしまいます。 これはエクセルの手操作 Ctrl＋Shift＋End でも同じようになりますので当然の結果(※１）と思っています。 （※１→なにか別な方法はありますか？） 上記の使用方法はあまりないのですが 構文を使う時点での最大行数や最大列数は常に不明で 途中空白が有る場合無い場合、 上記のようにシート上でデータ操作をした直後であっても データ削除部分は加味しデータのある範囲だけの取得の対応 が可能な構文を1種類で作成したいのですが どういう方法があるでしょうか？ ちなみに Sub 範囲コピー2() Range("B3").Select Range(Cells(Rows.Count, 1).End(xlUp).Row).Select Range(Cells(1, Columns.Count).End(xlToLeft).Column).Select Selection.Copy End Sub これですと 実行時エラー1004 Rangeメソッドは失敗しましたGlobalオブジェクト となります。 ヘルプをクリックしても何も表示されません。 WEB検索するとこのエラーの質問は結構多いのですが 事例が相違する為よく理解できません。 もしかしてRangeなのに 取得できる値が一つの番号でセルを指定できないからでしょうか？ エラーになる構文だと最初のRangeは行番号、次のRangeは列番号、 ですので。 で、 Sub 範囲コピー3() Dim 最終行 Dim 最終列 Range("B3").Select 最終行 = Cells(Rows.Count, 1).End(xlUp).Row 最終列 = Cells(1, Columns.Count).End(xlToLeft).Column Cells(最終行, 最終列).Select Selection.Copy End Sub これならエラーにはなりませんが 事例だとセルC50だけが単独選択されて範囲として 取得をしてくれません。 また 1, Columns.Count ですので最終列の列番号の取得が1行目の最終列から左に検索し データのある所の列番号を返すので 3→C列 となってしまい D,E,F列を見つけてくれません。 かといって 55, Columns.Count では データが55行まで無い場合には対応が出来ませんのでこれも駄目です。 途中に空白が無い場合や離れたセルが無い場合でも使いたいので UsedRangeは使用したくない（よくわかってない事もあって）です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 関数の中で参照するセル範囲(変動する)の記述方法
セルJ5に下記の数式を入力するマクロを組みたいのですが、記述方法が分かりません。 =SUMIF(セル範囲(1),B5,セル範囲(2)) ・セル範囲(1)にはB5：C列の最終データまで ・セル範囲(2)にはC5：C列の最終データまで 自分なりに ActiveCell.Formula = "=SUMIF(Range(Cells(5, 2), Cells(Range("b5").End(xlDown).Row, 3)),b5,Range(Cells(5, 2), Cells(Range("C5").End(xlDown).Row, 3)))" と書いてみたのですがダメでした。 どうかご教授お願い致します。
- ベストアンサー
- オフィス系ソフト
- 複数行の最下行の範囲選択
こんにちは、マクロ初心者です。 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ １ あ あ あ あ あ あ ２ あ あ あ あ あ あ ３ あ あ あ ４ あ あ ５ あ あ ６ あ あ ７ あ あ ８ あ あ ９ あ 10 上記のような表があるとき セル"A"列から"I"列までの最下行にあたる行を検索し、 更に最下行までの範囲をコピーして、別シートにコピーさせたいのです。 （上記の例だと、セル"A1"～"I9"の範囲をコピーする） Range("A1", Range("I1").End(xlDown)).Select Selection.Offset(0, 0).Select 上記のコードでできると思ったのですが、なぜか不必要な範囲まで選択されてしまいます。 （下方向に数行余計に選択されてしまう） これではダメなのでしょうか？ ちなみに、数式などは入っておらず、入力されていないセルは全て空白です。 A列だけの最下行を選択するというのは簡単に出来たのですが、このように複数の範囲を 選択する場合は、どのようにコードを書くべきでしょうか。 マクロのスキルが無い為困っています。 アドバイスをよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- セル範囲指定方法
VBAにて下記作成中ですが、行き詰ってしまいました。 どなたか、ご教授願います。 Sub 転記ボックス1_Click() Sheets("S").Select Range("N13").Select If ActiveCell.Value <> "" Then Selection.Copy Sheets("Ｈ").Select Range("K65536").End(xlUp).Offset(0, 1).Select ---＞シートＨ、K列最終行の右隣からL列最終行の範囲を指定 上記指定範囲内全てに、シートＳ・N13の値を貼付 ElseIf ActiveCell.Value = "" Then Sheets("Ｈ").Select Range("K65536").End(xlUp).Offset(0, 1).Select ---＞シートＨ、K列最終行の右隣からL列最終行の範囲を指定 上記指定範囲内全てに、”シートＳ・N13”と入力 End If End Sub ---＞部分の書き方がわかりません。 よろしくお願いします。
- ベストアンサー
- その他（ビジネス・キャリア）
- 空白セルがある行の左寄せ操作の件
下記のようにＩ列に空白セルを検出し、その空白セルがある行においてＩ列からＭ列までのデータを左寄せする処理行っております。 For 番号 = 1 To Range("B1").End(xlDown).Row If Cells(番号, 9).Value = "" Then コピー開始列 = Cells(番号, 9).End(xlToRight).Column Range(Cells(番号, コピー開始列), Cells(番号,13)).Select Selection.Cut Destination:=Range(Cells(番号, 9),Cells(番号, 9 + 14 - コピー開始列)) Range(Cells(番号, コピー開始列), Cells(番号,13)).Select End If Next 番号 対象行数が３０００行ほどあり処理時間がかかりすぎるため、もう少し効率よいやり方があれば教えてください。
- ベストアンサー
- オフィス系ソフト
- 【VBA】特定の範囲で同じ値を含むセルの色を変える
Excelのマクロに関して質問です。 特定の範囲(複数行と複数列)内で重複した値（セル内の最初の4文字が同じもの）を含むセルの色を変えたいです。 さらに、重複した値ごとに色分けをしたいです。例えば重複した値[1111]と重複した値[1112]の時では、前者が赤色で後者は青色、更に他の重複する値はまた別の色でというように、 要は、どのセルとセルが重複しているか色分けをして一目瞭然にしたいです。 ※なお特定の範囲は以下の変数を利用します。 dataRow = Workbooks(booksName).Worksheets(sheetsName).Range("A2").End(xlDown).Row 'データの入っている最終行を取得 dataColum = Workbooks(booksName).Worksheets(sheetsName).Range("A1").End(xlToRight).Column 'データの入っている最終列を取得 どなたか知恵をお貸し下さい。よろしくお願いします。
- ベストアンサー
- Visual Basic
- コピーと貼付
既存のデータはＡ～Y列まで入力されています。 新規のデータはＡ～W列までとなっています。 既存のX行には日付をいれてあり、新規データのX列に次月の1日(ついたち)を入力したい。 とりあえずは、1行下に日付を入力したマクロを組んだのですが、その後50行前後もコピーし貼付したいのですが、範囲の選択がうまく出来ません。 途中のセルから最終行のセルの範囲選択のマクロを教えてもらえないでしょうか。 ※Y列はダブルクリックコピーで問題ないので大丈夫です。 例 A列・・・・・・ X列 Y列(検索の関数が入っています) 1 ABC・・・・・・ 2011/6/1 1 ※既存のデータ 2 DDD・・・・・・ 2011/7/1 ※新規データの1列目 3 FFF・・・・・・ （ ） 4 GGG・・・・・・ （ ） 5 ・ 6 ・ 7 ・ 8 ・ 50 ZZZ・・・・・・ ( ) 新規の2列目以降に、新規で作成した日付をコピーし貼付したい。 上記までのマクロを参考に送ります。 教えて下さい。 Sub test() Dim MaxRange '最終行番号 MaxRange = Range("X3").End(xlDown).Row '最終行の設定 Range("X3").Select Selection.End(xlDown).Offset(1, 0).Select 'X列の最終行+1行目を選択 ActiveCell.FormulaR1C1 = "=EDATE(R[-1]C,1)" '同セルに関数入力 Range("X" & MaxRange - 1).Copy '書式の変更(変更前の最終行よりコピー・貼付) Range("X3").Select Selection.End(xlDown).Offset(0, 0).Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("X3").Select '追加したセルの関数を値に変更 Selection.End(xlDown).Offset(0, 0).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
- ベストアンサー
- その他（ビジネス・キャリア）
お礼
mshr1962さん ありがとうございます。AEまで選択できました。 AEを&でつなぐ発想が思い浮かびませんでした。 感謝致します。