下のコードを使用してオートフィルタからA列を抽出し指定して別シートに貼り付けることが出来ましたが
空白の欄が指定していないシートに張り付いてしまいます。
どこを直していいのかわかりませんので、ご教授お願いいたします
Dim m1 As String
Dim arry As Variant
Dim a2 As Long
m1 = "メ1,メ2,メ3,メ4,メ5,メ6,メ7,メ8"
arry = Split(m1, ",")
Worksheets("発注書リスト").Activate
If ActiveSheet.AutoFilterMode = False Then
Range("A1:A11").AutoFilter
End If
For a2 = 1 To 9
Worksheets("発注書リスト").Activate
ActiveSheet.Range("$A$2:$A$11").AutoFilter Field:=1, Criteria1:=arry(a2 - 1)
Range("B2:B11").Copy
Worksheets(arry(a2 - 1)).Activate
Range("A11").PasteSpecial Paste:=xlPasteValues
Next
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは
なんだかフィルターの範囲が微妙にずれていたりするけれど、それは問題ないのでしょうか?
また、シート名の要素数と実行時のループの数もあっていなかったりするようですが・・?
>空白の欄が指定していないシートに張り付いてしまいます。
配列で指定していないシート名のシートに張り付いてしまうということでしょうか?
ざっと見る限りでは、「指定していないシート」に張り付くことは無いと思いますけれど?
もしかすると、そちらのシートには、「配列に指定のあるシート」に連動して値が変わるような関数式が設定されているか、あるいはマクロで連動するような設定になっていたりしませんか?
実際のところがよくわかりませんけれど、指定したシートが空白になるのなら、フィルターをかけた結果が空白セルを含んでいて(あるいは空白セルのみで)、それをコピペしているだけなのではありませんか?
>どこを直していいのかわかりませんので、ご教授お願いいたします
何をどうしたいのかが正確にわからないと、どうすれば良いのかはなんとも言えません。
一方で、なさりたいことは質問者様ご自身ではわかっているのでしょうから、それを手操作で行って「マクロの記録」にとってみて、その結果を参考にしてみるとか・・
こんばんは
回答ありがとうございます。
すみません。要素数と実行時のループのところは具体的な会社名を伏せようとして間違えて多く削除してしまいました。質問していながら誤字のチェックをしていませんでした。
確かに、vlookupを使用しているところがあります。
明日、削除して確かめてみます。また、マクロの記録の結果も確かめてみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Excel(エクセル) Rangeメソッドは失敗しました。globalオブジェクトについて 6 2021/11/21 21:54
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) EXCLE VBA シートクリックしたら該当シートコピー 1 2021/11/11 16:37
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Visual Basic(VBA) Excel VBAでフォルダ内の全テキストファイルの任意データを取得について 7 2021/12/18 16:00
- Visual Basic(VBA) VBA countif について 3 2021/12/16 20:13
- Visual Basic(VBA) 超難 日付に対するクロス集計 7 2021/12/06 20:56
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
-
4
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
5
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
6
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
7
VBAのコードを教えてください
Visual Basic(VBA)
-
8
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
9
マクロのコードについて教えてください
Visual Basic(VBA)
-
10
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
11
Excel VBA コードを教えてください。
Visual Basic(VBA)
-
12
VBA コード
Visual Basic(VBA)
-
13
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
14
マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定
Visual Basic(VBA)
-
15
vbaでxmlからNodeListでデータがない時、空欄で取得する方法
Visual Basic(VBA)
-
16
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
17
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
18
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
19
引数に数値、文字列の混在
Visual Basic(VBA)
-
20
エクセルVBAでデータ転記
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA指定行削除
-
VBA一覧取得 再投稿
-
VBAコンボボックスで選択した値...
-
エクセルVBAについて
-
【ExcelVBA】値を変更しながら...
-
FileCopy時のエラー
-
VBA 複数のエクセルから一つの...
-
VBA ユーザーフォーム ボタンク...
-
コードを直していただきたいで...
-
2つのマクロでチェックボックス...
-
VBAに詳しい方教えてください。
-
ExcelのVBAコードについて教え...
-
VBA listBoxについて
-
VBA実行後に元のセルに戻りたい
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
現在のブックを閉じないで、マ...
-
Excel VBA 定義されたプロージ...
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報