Excel VBA質問箱 IV

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

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


74082 / 76732 ←次へ | 前へ→

【7120】Re:コード番号を頼りに値を飛ばしたい
回答  INA  - 03/8/23(土) 2:17 -

引用なし
パスワード
   作ってみましたので、試してみて下さい。

Private Sub CommandButton1_Click()
Dim C As Long
Dim FindData As Variant

With Worksheets("sheet1")

 'Sheet1のA列をデータの最下行までループ 
 For C = 1 To .Range("A65536").End(xlUp).Row
 
  'sheet1の値をFindで検索  
  Set FindData = _
Worksheets("sheet2").Range("A:A").Find(.Cells(C, 1).Value, LookAt:=xlWhole)
  
 '検索された右セルの値をsheet1のB列に代入
  .Cells(C, 2).Value = FindData.Offset(0, 1).Value

 Next C

End With
End Sub
0 hits

【7118】コード番号を頼りに値を飛ばしたい ふぅ 03/8/23(土) 1:11 発言
【7120】Re:コード番号を頼りに値を飛ばしたい INA 03/8/23(土) 2:17 回答
【7121】Re:コード番号を頼りに値を飛ばしたい Hirofumi 03/8/23(土) 5:46 回答
【7146】Re:コード番号を頼りに値を飛ばしたい ふぅ 03/8/24(日) 1:12 お礼

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