Excel VBA質問箱 IV

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

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


14802 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   ▼momoiro さん:

こんにちは
要件を取り間違えているかもしれませんが。

(Matchを 照合型0 という効率の悪い方法で使っていますがご容赦)

Sub Sample()
 Dim msWB As Workbook, dtWB As Workbook
 Dim msSH As Worksheet, dtSH As Worksheet
 Dim tblA As Range
 Dim i As Long
 Dim ck As Variant
 
 Application.ScreenUpdating = False
 
 Set msWB = Workbooks.Open(ThisWorkbook.Path & "\マスター.xls")
 'もし、既に開かれているなら Set msDB = Workbooks("マスター.xls")
 Set dtWB = Workbooks.Open(ThisWorkbook.Path & "\対象一覧.xls")
 'もし、既に開かれているなら Set dtDB = Workbooks("対象一覧.xls")
 Set msSH = msWB.Worksheets("Sheet1")
 Set dtSH = dtWB.Worksheets("Sheet1")
 
 With msSH
  Set tblA = .Range("A1").Resize(.Range("A" & .Rows.Count).End(xlUp).Row)
 End With
 
 With dtSH
  For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
   ck = Application.Match(.Cells(i, "A").Value, tblA, 0)
   If IsNumeric(ck) Then
    msSH.Cells(ck, msSH.Columns.Count).End(xlToLeft).Offset(0, 1).Value = 9
   End If
  Next
 End With
 
 Set msWB = Nothing
 Set dtWB = Nothing
 Set msSH = Nothing
 Set dtSH = Nothing
 Application.ScreenUpdating = True
 
End Sub
1 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 発言

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