2つのブックがあり、book1のE列の値をbook2のB列で検索し、
ヒットした行はbook1のP列の値をbook2のH列に入力したいです。
しかしbook2のB~F列の一部が結合されており、結合セルに対しては検索が機能せず、確実にある値でも「該当なし」となってしまいます。
(結合は行ごとに横方向のみ。縦結合はありません)
結合を解くと正常に動くため、それが原因なのは間違いないのですが、
フォーマット上、結合を解除しないまま入力しないとならず、行き詰まっております。
色々と調べましたが解決できず、ご存知の方いらっしゃいましたら、何卒ご教授頂けますと幸いです。
Sub test()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim r1 As Long, r2 As Long
Dim fnd As Range
Dim sid As Variant, sname As String
Dim mes As String
Set sh1 = ActiveWorkbook.Sheets(1)
Set sh2 = Workbooks("test.xls").Sheets(1)
With sh1
For r1 = 2 To .Cells(Columns.Count, 1).End(xlUp).Row
sid = .Range("E" & r1).Value
sname = .Range("E" & r1).Offset(, 1).Value
Set fnd = sh2.Range("B:B").Find(What:=sid, LookIn:=xlValues, LookAt:=xlPart)
If fnd Is Nothing Then
mes = mes & sname & vbCrLf
Else
r2 = fnd.Row
sh2.Range("P" & r2).Value = sh1.Range("H" & r1).Value
End If
Next r1
If mes = "" Then
MsgBox "入力終了"
Else
MsgBox mes & "該当なし"
End If
End With
End Sub
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんばんは
FIND以外で各セルを検索する方法は既に出ているので、ご提示の方法にほぼ近い方法を・・
どこかの空き列を作業列としてB列の値を一旦コピーして、そちらの列から検索し、終わったら消去する方法です。
ご提示のコードに2行ほど追加することで、ほぼそのままで済むものと思います。
空き列がわかっていればその列に、不定の場合はUsedRange+1列目にするか、最終列(大抵は使っていない)を利用するなど。
具体的には・・
例えば、X列が空き列とわかっているとして、事前に(=ループの外で)
sh2.Columns("X").Value = sh2.Columns("B").Value
としておけば、X列に結合のない状態でB列の値がコピーされます。
検索はこのX列に対して行い、検索が終わったら
sh2.Columns("X").ClearContents
とすることで、X列の値はクリアされます。
No.3
- 回答日時:
こんばんは
上から合致した行№を取得する為のFindのようなので
あっさりFindを諦めて 配列で行№に相当する値を取得してみるのはどうでしょう。
Sub sample()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim r1 As Long, r2 As Long, i As Long
Dim sid As Variant, sname As String
Dim mes As String
Dim Ary
Set sh1 = ActiveWorkbook.Sheets(1)
Set sh2 = Workbooks("test.xls").Sheets(1)
Ary = sh2.Range(sh2.Cells(1, 2), sh2.Cells(Rows.Count, 2).End(xlUp))
With sh1
For r1 = 2 To .Cells(Columns.Count, 1).End(xlUp).Row
sid = .Range("E" & r1).Value
sname = .Range("E" & r1).Offset(, 1).Value
r2 = 0
For i = 1 To UBound(Ary, 1)
If Ary(i, 1) Like "*" & sid & "*" Then
r2 = i
Exit For
End If
Next
If r2 = 0 Then
mes = mes & sname & vbCrLf
Else
sh2.Range("P" & r2).Value = sh1.Range("H" & r1).Value
End If
Next r1
If mes = "" Then
MsgBox "入力終了"
Else
MsgBox mes & "該当なし"
End If
End With
End Sub
xlPart・・
If Ary(i, 1) Like "*" & sid & "*" Then については検討が必要かも
No.2
- 回答日時:
要件的に、下記のようにするとことは不可ですかね?
Set fnd = sh2.Range("B:B").Find(・・・
↓
Set fnd = sh2.Range("B:F").Find(・・・
No.1
- 回答日時:
こんばんは。
セルの結合と、マクロは相性が悪く、色々とトラブルの元になりますね。
直接の回答ではありませんが、1つの解決方法としてですが、
book2のシートを新しいブックにコピーして、結合を全て解除する。
book1のE列の値を新しいブックのB列で検索し、ヒットした行はbook1の
P列の値をbook2のH列に入力する。
処理が少し面倒ですが、3つのブックをマクロで処理するが良いかと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
結合セルの中身を検索する
Excel(エクセル)
-
結合させた状態で、vbaで列番号を取得する方法
Excel(エクセル)
-
findは動くがfindnextがマクロで動きません。記述は同じはずなのですが…
Visual Basic(VBA)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
【excelVBA】Findメソッドで検索対象を複数列
Excel(エクセル)
-
8
UserForm1.Showでエラーになります。
工学
-
9
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
10
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
11
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
12
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
13
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
14
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
どこにもフォーカスを当てたくない
Access(アクセス)
-
17
split関数で区切り文字がない場合
Visual Basic(VBA)
-
18
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
19
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
20
VBA:結合されたセルに対する「Target」について
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
重複データの合算(VBA)
-
IIF関数の使い方
-
【Excel VBA】 B列に特定の文字...
-
URLのリンク切れをマクロを使っ...
-
vba 重複データ合算
-
【VBA】複数行あるカンマ区切り...
-
リストビューのコンボボックス
-
vba 2つの条件が一致したら...
-
rowsとcolsの意味
-
VBAの構文 3列置きにコピーし...
-
VBAで文字列を結合
-
エクセルVBAにて =A1=B1とすれ...
-
セルの結合
-
VBScriptでfindを使うには??
-
VBAを用いて条件付きの平均値、...
-
VBA 値と一致した行の一部の列...
-
エクセルVBA intersect colu...
-
Cellsのかっこの中はどっちが行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
VBAの構文 3列置きにコピーし...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
VBAで指定範囲内の空白セルを左...
-
VBAでのリスト不一致抽出について
-
セルに値が入っていた時の処理
-
VBAコンボボックスで選択した値...
おすすめ情報