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
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。