いつもお世話になっております。
昨日、複数指定セルの末尾までを別シートに転記するVBAについて質問した者です。
https://oshiete.goo.ne.jp/qa/12967407.html
この度、新たにセルが非表示となっている場合のデータを別シートに転記する
処理が発生し、こちらのVBAについてご教示いただきたく質問させていただきました。
処理内容としましてはSub 右方向()の内容に非表示とされているセルは無視し、可視セルのみを
転記する処理を追加したい質問になります。
色々とネットの情報を調べたところ、こちらの記事で可視セルを転機することはできたのですが
https://vba-create.jp/vba-method-specialcells-vi …
昨日、作成していただきました上記のVBAに改良を加えたいのですが、どの様な構築になりますでしょうか。
どうぞよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんばんは
単純に対象を可視セルのみコピーすれば良いのではないでしょうか?
>.Range(r, .Cells(Rows.Count, r.Column).End(xlUp)).Copy _
を可視セルのみにしたいのなら
.Range(r, .Cells(Rows.Count, r.Column).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy _
とすれば良いだけ。
ただし、ご提示のサイトにも説明があるように、指定範囲内に可視セルが存在しない場合にはエラーになります。
これを避けるには、エラー処理を加えておくか、必ず可視となるセルを含むように範囲を設定しておくなどの対処法が考えられます。
fujillin様、回答ありがとうございます。
ご指摘の.Range(r, .Cells(Rows.Count, r.Column).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy _
の修正で実現できました。
ありがとうございます!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Visual Basic(VBA) ExcelVBAの複数指定範囲の構文 2 2022/05/26 22:39
- Excel(エクセル) エクセルのVBAで上の表の最下行を求める 4 2022/09/14 15:22
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
ExcelVBAの複数指定範囲の構文
Visual Basic(VBA)
-
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
-
4
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
7
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
8
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
9
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
10
【Excel】 可視セルへの貼り付けについて
Excel(エクセル)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
13
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
14
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
15
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
16
別のシートから値を取得するとき
Visual Basic(VBA)
-
17
非表示の列をすべて削除するマクロ
Excel(エクセル)
-
18
(VBAにて)日付でデータを抽出するやり方
Excel(エクセル)
-
19
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
20
エクセルVBAでフィルタ抽出部分のみのコピー
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA 配列からセルに「...
-
VBAマクロ実行時エラーの修正に...
-
【VBA】【ユーザーフォーム_Lis...
-
Excel VBA IF文がうまく動作し...
-
特定の色のついたセルを削除
-
PasteSpecial Paste:=[********...
-
QRコード作成マクロについて
-
飛び地セルの空白判定
-
連番色付け
-
Excel UserForm の表示位置
-
Excelで空白セル直前のセルデー...
-
VBA にて、条件付き書式で背景...
-
VB DataGridViewについて
-
エクセルの合計を自動で表示さ...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA 複数条件の分岐処理の上手...
-
オートフィルタの結果をコピー...
-
excelで結合セルの場合にエラー...
-
DataGridViewでグリッド内に線...
-
関数の引数でrangeを指定したとき
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
VBA 複数条件の分岐処理の上手...
-
Excelで空白セル直前のセルデー...
-
Excel UserForm の表示位置
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
VBA にて、条件付き書式で背景...
-
VBAでユーザーフォームにセル値...
-
【VBA】写真の貼り付けコードが...
-
【Excel VBA】一番右端セルまで...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBA IF文がうまく動作し...
-
下記のマクロの説明(意味)を...
-
入力規則のリスト選択
-
C# DataGridViewで複数選択した...
-
関数の引数でrangeを指定したとき
おすすめ情報