![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
途中に行の挿入・削除があると定義された範囲はどうしても変わってしまいます。
範囲の行数をつねに100行に保つにはVBAを使用していったん名前の定義を消し、再度つける方法で対処できます。
やってみました。
最初、下記マクロSub AREAtest1()で100行づつ名前を付けた後、挿入削除を行っても、Sub AREAtest1解除()でいったん名前を消去し、再度Sub AREAtest1()を実行すれば、お望みの結果になります。
Sub AREAtest1()'100行づつ名前定義
For n = 0 To 9
ActiveWorkbook.Names.Add Name:="AREA" & n + 1, RefersTo:= _
"=Sheet1!$A$" & n * 100 + 1 & ":$A$" & n * 100 + 100 & ""
Next
End Sub
Sub AREAtest1解除()上記の定義をすべて解除
For n = 0 To 9
Application.Goto Reference:="Area" & n + 1
ActiveWorkbook.Names("Area" & n + 1).Delete
Next
End Sub
マクロに関してはほんの入り口にいるのですが、作成して戴いたものをModule1に貼り付け目的を達成できました。
本当に有難うございました。
No.3
- 回答日時:
> 範囲を選択してコピーしたいので、確認できないと困るのです。
名前ボックスのドロップダウンから選択して範囲選択をし、
コピーしてどこかに貼り付けたいとのご希望でしょうか。
常にSheet1のA1:A100までを別のシートのA列に表示したいのでしたら
A1に
=INDIRECT("Sheet1!A"&ROW())
B1に
=INDIRECT("Sheet1!A"&ROW()+100)
C1に
=INDIRECT("Sheet1!A"&ROW()+200)・・・
これを100行分下にコピーするということでいかがでしょうか。
INDIRECTを多用していますのでパフォーマンスが多少落ちると思います。
お使いのパソコンで様子を見られて使ってください。
またINDIRECTを使用していますと、ファイルを開いて変更せずに閉じても
「変更を保存しますか」と聞かれます。
INDIRECTは揮発性関数ですのでそのようなメッセージが出ます。
>INDIRECTを多用していますのでパフォーマンスが多少落ちると思います。
上記が心配なので、マクロを利用することにしました。
本当に有難うございました。
No.1
- 回答日時:
例えば、
挿入→名前→定義で
名前に『Area01』、参照範囲に『INDIRECT("A1:E100")』
名前に『Area02』、参照範囲に『INDIRECT("A101:E200")』
名前に『Area03』、参照範囲に『INDIRECT("A201:E300")』
:
:
のように設定します。
(結果を、左上の名前ボックスでは確認できないようですが・・・Excel2000です)
この回答への補足
有難うございました。
>(結果を、左上の名前ボックスでは確認できないようですが・・・Excel2000です)
範囲を選択してコピーしたいので、確認できないと困るのです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Excel(エクセル) 条件付き書式 ある範囲で色がついているセルと同行の別のセルに色を付けたい 4 2022/04/20 07:04
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Excel(エクセル) [入力規則]のリストボックス内の“不揃いの林檎たち” 3 2022/09/15 18:32
- Visual Basic(VBA) RemoveDuplicatesメソッドについて教えてください。 シート1にシート2から値をもってく 1 2023/02/28 22:43
- Excel(エクセル) エクセル シート内のボックスを縦並びから横並びに 7 2023/04/05 04:28
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
visual studio でインデントを...
-
エクセル マウスで選択した範...
-
エクセルの「範囲名」の設定変...
-
選択範囲の空白セルに0を入れる...
-
【EXCEL】ピボットテーブルの集...
-
エクセル ダブルクリック入力の...
-
エクセルのマクロで選択範囲の...
-
ペイントでの切り取り
-
テーブルリンク エクセルの4...
-
エクセル2000 選択範囲の並び...
-
この画像の上と下の黒い部分を...
-
EXCEL2007の範囲選択で、選択し...
-
セル削除右(又は下)方向にシフト
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
白飛びした(明るい)写真をiPhon...
-
Photoshop で8bit /チャンネル ...
-
Androidのスマホで毎回毎回ホー...
-
「無」と「未」の使い方
-
【illustrator】回転やシアーを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
visual studio でインデントを...
-
エクセル マウスで選択した範...
-
エクセル ダブルクリック入力の...
-
テーブルリンク エクセルの4...
-
選択範囲の空白セルに0を入れる...
-
EXCEL VBA----離れたセル範囲の...
-
EXCEL VBAにて画像処理のアドイ...
-
Cell内の一部を指定する方法(Wo...
-
EXCEL ボリュームゾーンごとの...
-
セル削除右(又は下)方向にシフト
-
Wordで一括範囲指定について
-
反転する時の色を変えたいのですが
-
Wordデータの色を反転させたい
-
エクセルのマクロで選択範囲の...
-
読み上げ機能について
-
フォトショ画像:背景への画像...
-
ペイントでの切り取り
-
画像の背景を白にしたい。
-
Wordでの範囲指定について
-
【EXCEL】ピボットテーブルの集...
おすすめ情報