□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 〇のある列以外を削除して印刷シート part２ | |
|---|---|
[195517] 〇のある列以外を削除して印刷シート part２- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ゆきな -(2023/01/23(13:12)) □U R L/ kazuo様
もう一つ教えてください。
空白の罫線セルで値が入力されていない列と行があります。
その場合に下記のVBAでは〇が入力されているA行以外に値が入力されていない罫線のみの
行と列のセルが〇の下の列に表示されてしまいます。
〇が入力されている列以外は表示されないようにできませんか？
宜しくお願い致します。
Sub フィルター貼り付け()
With Worksheets("データーシート")
.Range("A3:L4").CurrentRegion.AutoFilter 1, "〇"
.AutoFilter.Range.Offset(4 - .AutoFilter.Range.Row).Copy Worksheets("印刷シート").Range("A4")
.AutoFilterMode = False
End Withこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195525] Re[1]: 〇のある列以外を削除して印刷シート part２- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2023/01/23(19:05)) □U R L/ なるほど、表の上は考慮したのですが下は考え抜けていました。
私が質問しなかったのも悪いのですが、今後質問するときは最初からシート上の構成を書いて下さい。
resizeを覚えて下さい。
Sub フィルター貼り付け()
Dim rw As Long
With ActiveSheet
.Range("A3:L4").CurrentRegion.AutoFilter 1, "〇"
rw = 4 - .AutoFilter.Range.Row
.AutoFilter.Range.Offset(rw).Resize(.AutoFilter.Range.Rows.Count - rw).Copy _
Worksheets("印刷シート").Range("A4")
.AutoFilterMode = False
End With
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195531] Re[2]: 〇のある列以外を削除して印刷シート part２- ■  / 記事引用/メール受信=OFF■
□投稿者/ ゆきな -(2023/01/24(09:38)) □U R L/ kazuo様 ありがとうございました。 以後、もう少しわかりやすい説明分にするように致します。 本当に感謝いたします。 | |