![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
下のコードを使用してオートフィルタから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も見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
ご教授お願いします。#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
VBAのコードを教えてください
Visual Basic(VBA)
-
7
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
8
マクロのコードについて教えてください
Visual Basic(VBA)
-
9
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
10
Excel VBA コードを教えてください。
Visual Basic(VBA)
-
11
VBA コード
Visual Basic(VBA)
-
12
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
13
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
14
vbaでxmlからNodeListでデータがない時、空欄で取得する方法
Visual Basic(VBA)
-
15
マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定
Visual Basic(VBA)
-
16
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
17
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
18
エクセルVBAでデータ転記
Visual Basic(VBA)
-
19
【VBA】カーソルのある行の1行目のセルをコピペし,最後にそのセルに戻る方法
Visual Basic(VBA)
-
20
引数に数値、文字列の混在
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vba アクティブシートの名前変...
-
Excelのマクロについて教えてく...
-
VBAコードについて教えてくださ...
-
エクセルVBAコードで教えて下さ...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
エクセルのマクロについて教え...
-
Outlookにて既にウィドウ単体で...
-
ユーザーフォームに別シートか...
-
Outlookの「受信日時」「件名」...
-
FileCopy時のエラー
-
VB.NETでボタンのクリックイベ...
-
Excelのマクロについて教えてく...
-
VBAなくなるの?
-
VBA 別ブックから条件に合うも...
-
ExcelのVBAコードを教えて頂け...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
エクセルVBA
-
ExcelのVBAコードについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
VBA レジストリの値の読み方に...
-
Excelのマクロについて教えてく...
-
ユーザーフォームに別シートか...
-
VBAの計算で@が出てしまう件
-
エクセルVBAについて
-
Vba 実数および実数タイプの変...
-
【ExcelVBA】値を変更しながら...
-
VBA一覧取得 再投稿
-
VBA指定行削除
-
エクセルVBAについて
-
VBA ユーザーフォーム ボタンク...
-
VBA 何かしら文字が入っていたら
-
エクセルについて
-
2つのマクロでチェックボックス...
-
【マクロ】1つのマクロの中に...
-
ExcelのVBAコードについて教え...
-
VB.net(VB)で、フォームにExcel...
-
Vba SelStart、SelLen教えてく...
-
Excel-VBAのmsgBox()の不思議
おすすめ情報