Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3132 / 76735 ←次へ　｜　前へ→
【79240】Re:複数のファイルに存在する表を抜き出して一覧にする。
発言  マナ  - 17/6/18(日) 18:21 -
引用なし
パスワード
   ▼inoue さん：

CurrentRegionが使えるならば
データ範囲をこんな感じでコピーできるかもしれません。

Sub test()
　　Dim ws As Worksheet
　　Dim r As Range
　　Dim myStr As String
　　
　　myStr = "目印"
　　
　　Set ws = ActiveSheet
　　Set r = ws.Cells.Find(What:=myStr, LookIn:=xlValues, LookAt:=xlWhole)
　　
　　Set r = r.CurrentRegion
　　Set r = Intersect(r, r.Offset(2))

　　r.Copy
　　
　　Worksheets.Add
　　Range("A3").PasteSpecial xlPasteValues
　　
End Sub
0 hits
▼ 【79230】複数のファイルに存在する表を抜き出して一覧にする。 inoue 17/6/18(日) 2:08 質問[未読]
【79231】Re:複数のファイルに存在する表を抜き出し... マナ 17/6/18(日) 8:07 発言[未読]
【79233】Re:複数のファイルに存在する表を抜き出し... inoue 17/6/18(日) 14:23 回答[未読]
【79236】Re:複数のファイルに存在する表を抜き出し... マナ 17/6/18(日) 15:19 発言[未読]
【79238】Re:複数のファイルに存在する表を抜き出し... inoue 17/6/18(日) 17:16 回答[未読]
【79240】Re:複数のファイルに存在する表を抜き出し... マナ 17/6/18(日) 18:21 発言[未読]≪
【79244】Re:複数のファイルに存在する表を抜き出し... inoue 17/6/18(日) 20:30 回答[未読]
【79247】Re:複数のファイルに存在する表を抜き出し... マナ 17/6/18(日) 21:17 発言[未読]
【79248】Re:複数のファイルに存在する表を抜き出し... inoue 17/6/18(日) 22:46 お礼[未読]
【79249】Re:複数のファイルに存在する表を抜き出し... マナ 17/6/18(日) 23:22 発言[未読]
【79254】Re:複数のファイルに存在する表を抜き出し... inoue 17/6/19(月) 21:14 発言[未読]
【79232】Re:複数のファイルに存在する表を抜き出し... γ 17/6/18(日) 14:11 発言[未読]
【79234】Re:複数のファイルに存在する表を抜き出し... inoue 17/6/18(日) 14:30 回答[未読]
【79235】Re:複数のファイルに存在する表を抜き出し... カリーニン 17/6/18(日) 14:45 発言[未読]
【79237】Re:複数のファイルに存在する表を抜き出し... カリーニン 17/6/18(日) 15:25 発言[未読]
【79239】Re:複数のファイルに存在する表を抜き出し... inoue 17/6/18(日) 17:20 回答[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3132 / 76735 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free