Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4612 / 76735 ←次へ | 前へ→

【77741】Re:特定条件の行に他シートの行を貼り付け&シート分け保存
発言  γ  - 15/12/12(土) 22:40 -

引用なし
パスワード
   最終行は下記のようにして求めることができます。
  Dim lastRow As Long
  lastRow = Cells(Rows.Count, 1).End(xlUp).Row

フィルタで抽出した段階で、
2行目からlastRowを対象にして貼付けると
可視セルだけに貼り付けることができます。

後半部分は、下記のコードを参考にしてください。
一行空白行がありますから、そこに注目して、Areasを活用します。

Sub test()
  Dim lastRow As Long
  Dim area As Range
  Dim myRng As Range
  
  lastRow = Cells(Rows.Count, 1).End(xlUp).Row
  
  Set myRng = Range("A1", Cells(lastRow, 1)).SpecialCells(xlCellTypeConstants)
  
  For Each area In myRng.Areas
    Set r = area.Resize(, 4)
    
    Debug.Print r.Address      '確認用
    
    ' r を 新しいブックのシートにコピー。
    ' シート名は r(1).Valueに変更
  Next
End Sub

0 hits

【77738】特定条件の行に他シートの行を貼り付け&シート分け保存 さいとう 15/12/12(土) 20:17 質問[未読]
【77739】Re:特定条件の行に他シートの行を貼り付け... γ 15/12/12(土) 21:07 発言[未読]
【77740】Re:特定条件の行に他シートの行を貼り付け... さいとう 15/12/12(土) 22:21 発言[未読]
【77741】Re:特定条件の行に他シートの行を貼り付け... γ 15/12/12(土) 22:40 発言[未読]
【77742】Re:特定条件の行に他シートの行を貼り付け... γ 15/12/13(日) 8:54 発言[未読]
【77743】Re:特定条件の行に他シートの行を貼り付け... さいとう 15/12/14(月) 5:24 お礼[未読]
【77745】Re:特定条件の行に他シートの行を貼り付け... γ 15/12/14(月) 20:39 発言[未読]
【77751】Re:特定条件の行に他シートの行を貼り付け... さいとう 15/12/15(火) 7:09 お礼[未読]
【77752】Re:特定条件の行に他シートの行を貼り付け... γ 15/12/15(火) 7:16 発言[未読]
【77753】Re:特定条件の行に他シートの行を貼り付け... さいとう 15/12/15(火) 18:20 お礼[未読]

4612 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free