質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

760閲覧

Excel VBAで非表示の行以外を別シートに貼り付けたい

kou----

総合スコア11

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2022/01/17 01:47

Excel VBAでの質問です

検索ワードを入力してデータをフィルターで絞り込み、絞り込んだ結果を配列に入れて別シートにコピペするマクロを組みました。

正常に動作していたのですが、突然絞り込んだデータだけではなく、絞り込んだデータの最終行までコピペされてしまうようになりました。

また、F8で動作させると正常に動作します。

ifが正常に動作していないのではないかと思っていますが、なぜそうなるのかが全く分かりません

解決方法がお分かりの方がいらっしゃいましたら、ご助力いただけますと幸いです。

以下、該当部分のVBAコードです。

Dim rng_filterd As Range Set rng_filterd = wsd.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible) '検索件数を数える If rng_filterd.Count - 1 > 0 Then hj = wsd.Cells(Rows.Count, 7).End(xlUp).Row hcount = 1 ReDim haihai(1 To hj, 1 To 9) For hl = 1 To 9 hcount = 1 'カウントリセット If hl = 1 Then hcell = 7 ElseIf hl = 2 Then hcell = 4 ElseIf hl = 3 Then hcell = 13 ElseIf hl = 4 Then hcell = 29 ElseIf hl = 5 Then hcell = 19 ElseIf hl = 6 Then hcell = 14 ElseIf hl = 7 Then hcell = 20 ElseIf hl = 8 Then hcell = 27 ElseIf hl = 9 Then hcell = 48 End If For hi = 7 To hj If Rows(hi).Hidden = False Then haihai(hcount, hl) = wsd.Cells(hi, hcell).Text hcount = hcount + 1 End If Next Next wss.Range("B7" & ":" & "J" & hj) = haihai 'ペースト LastRow1 = wss.Cells(Rows.Count, 2).End(xlUp).Row '最後の行を取得 For i = 7 To LastRow1 '偶数行に色塗り If i Mod 2 = 0 Then With wss.Range("B" & i & ":" & "J" & i).Interior .ThemeColor = xlThemeColorDark2 .TintAndShade = 0 End With End If Next Else MsgBox "検索結果が見つかりませんでした" End If

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

自己解決

If wsd.Rows(hi).Hidden = False Then haihai(hcount, hl) = wsd.Cells(hi, hcell).Text hcount = hcount + 1 End If

上記、配列に代入する部分のcellsをしっかりワークシートを指定すれは動作しました。

お騒がせ致しました。

投稿2022/01/17 02:58

kou----

総合スコア11

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問