質問するログイン新規登録

質問編集履歴

1

文章追記

2021/12/21 01:18

投稿

hajihaji
hajihaji

スコア28

title CHANGED
File without changes
body CHANGED
@@ -1,6 +1,8 @@
1
1
  ひとつのブック内に同じフォームのシートが複数あり、該当するセル(【】で囲まれた値)があればをSheet1に抽出できるものを作っています。
2
2
  しかし最初に該当したセルの次から検索がかかり、最初に該当したセルの情報が抜けてしまいます。
3
3
  After:=で引数を設定することを試みましたがどうしてもうまくいきません。
4
+ After:=s.Cells(Rows.Count, "B").End(xlUp)など最終行からの検索をしようと
5
+ Set rngSearch = myRange.Find(What:="【", LookAt:=xlPart, SearchOrder:=xlByColumns)のなかに設置してもうまくいきませんでした。
4
6
  どのように設定すればいいかご教示いただけますと幸いです。
5
7
  ```
6
8
  Sub test()