[[20251031214015]]　『可視セルのみのデータ入力』（ンゴ）　ページの最後に飛ぶ

『可視セルのみのデータ入力』（ンゴ）

過去ログを参照したのですがうまく行かずアドバイスをください

 Sheets("マスタ").Columns(5).SpecialCells(xlCellTypeVisible).Select

    Dim i As Long
    For i = 1 To Rows.Count
    If Sheets("マスタ").Cells(i + 1, 5) = "" Then Exit Sub
    Sheets("通知").Cells(1, 8) = Sheets("マスタ").Cells(i + 1, 5)
    Next

データ抽出後のマスタシートの列５にマスタナンバーが入っている
まずはColumns(5)の可視セルのみを選択
次に見出しを除いた２行目Cells(i + 1,5)から空白にぶつかるまで
通知シートの指定セルに入力をしたい

抽出前のすべての数字までセルに入力されてしまいます。

＜使用 Excel：unknown、使用 OS：unknown ＞

 Sub test()
    Dim r As Range

    Set r = Sheets("マスタ").AutoFilter.Range.Columns(5)
    Intersect(r, r.Offset(1)).Copy Sheets("通知").Cells(1, 8)

 End Sub
（マナ） 2025/10/31(金) 23:57:16

コメント返信：

[ 一覧(最新更新順) ]

[[20251031214015]] 『可視セルのみのデータ入力』（ンゴ） ページの最後に飛ぶ

[[20251031214015]]　『可視セルのみのデータ入力』（ンゴ）　ページの最後に飛ぶ