Excel VBA質問箱 IV

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

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


51013 / 76732 ←次へ | 前へ→

【30595】Re:同一データを検索して一定のデータを入力する
回答  ちくたく  - 05/10/31(月) 16:23 -

引用なし
パスワード
   tbtk さん
こんにちは。

テストしてないですけど、
背番号のほうを配列に格納しての、
For~Next二重回しです。

Sub データ一致()
  
  Dim myVal As Variant
  Dim myWb As Workbook, dataWb As Workbook
  Dim i As Integer, j As Integer
  
  Set myWb = Workbooks("データ取り込み.xls")
  Set dataWb = Workbooks("背番号.xls")
  
  myVal = dataWb.ActiveSheet.Columns("A:B")
  
  For i = 1 To CInt(myWb.ActiveSheet.Range("B65536").End(xlUp).Row)
    For j = LBound(myVal) To UBound(myVal)
      If myWb.ActiveSheet.Range("B" & i).Value = myVal(j, 1) Then
        myWb.ActiveSheet.Range("D" & i).Value = myVal(j, 2)
        Exit For
      End If
    Next j
  Next i
  
End Sub

0 hits

【30584】同一データを検索して一定のデータを入力する tbtk 05/10/31(月) 14:17 質問
【30589】Re:同一データを検索して一定のデータを入... 05/10/31(月) 15:14 回答
【30590】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 15:29 質問
【30591】Re:同一データを検索して一定のデータを入... 05/10/31(月) 15:38 発言
【30593】Re:同一データを検索して一定のデータを入... とまと 05/10/31(月) 16:19 発言
【30594】Re:同一データを検索して一定のデータを入... 05/10/31(月) 16:22 発言
【30596】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 16:54 質問
【30598】Re:同一データを検索して一定のデータを入... とまと 05/10/31(月) 17:05 回答
【30600】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 17:31 お礼
【30595】Re:同一データを検索して一定のデータを入... ちくたく 05/10/31(月) 16:23 回答
【30597】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 17:01 発言
【30602】Re:同一データを検索して一定のデータを入... tbtk 05/10/31(月) 18:06 お礼

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