Excel VBA質問箱 IV

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

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


14801 / 76734 ←次へ | 前へ→

【67421】Re:検索にマッチする列の最後に値を追加したい。
回答  metabeaux  - 10/12/2(木) 16:11 -

引用なし
パスワード
   例では、対象一覧とマスターとで、名前の行位置が同じなのですが、そうとは限らないんですよね?

対象一覧にある名前は、マスターに必ずあるのでしょうか?

マスターに、同じ名前は1つだけですか?それとも複数存在する場合もありますか?

それぞれのファイルには、シートはいくつありますか?1枚だけ?服すうまいある場合、何枚目が処理対象シートですか?

とりあえず、「対象一覧にある名前がマスターに無い場合もある」「マスターには同じ名前は1つしかない」「どっちのファイルも1シート目が処理対象ファイル」という前提で作ってみました。

いくつかある方法のうちの一例です。

ファイルは両方開かれている状態で実行してください。

Sub test()
  Dim ShRef As Worksheet, ShMas As Worksheet
  Set ShRef = Workbooks("対象一覧.xls").Sheets(1)
  Set ShMas = Workbooks("マスター.xls").Sheets(1)
  Dim r As Long
  For r = 1 To ShRef.Cells(ShRef.Rows.Count, 1).End(xlUp).Row
    Dim Fnd As Range
    Set Fnd = ShMas.Cells.Find(ShRef.Cells(r, 1).Value, , , xlWhole)
    If Not Fnd Is Nothing Then
      Fnd.EntireRow.Cells(Columns.Count).End(xlToLeft).Offset(, 1).Value = 9
    End If
  Next r
End Sub
3 hits

【67419】検索にマッチする列の最後に値を追加したい。 momoiro 10/12/2(木) 15:09 質問
【67420】Re:検索にマッチする列の最後に値を追加し... UO3 10/12/2(木) 16:08 回答
【67423】Re:検索にマッチする列の最後に値を追加し... UO3 10/12/2(木) 16:20 発言
【67424】Re:検索にマッチする列の最後に値を追加し... momoiro 10/12/2(木) 16:22 回答
【67421】Re:検索にマッチする列の最後に値を追加し... metabeaux 10/12/2(木) 16:11 回答
【67422】Re:検索にマッチする列の最後に値を追加し... momoiro 10/12/2(木) 16:19 回答
【67425】Re:検索にマッチする列の最後に値を追加し... kanabun 10/12/2(木) 17:19 発言
【67426】Re:検索にマッチする列の最後に値を追加し... kanabun 10/12/2(木) 17:23 発言

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