Excel VBA質問箱 IV

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

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


46642 / 76735 ←次へ | 前へ→

【35061】Re:VLOOKUP関数をVBAで使うにはどうしたらい...
回答  Kein  - 06/2/20(月) 15:27 -

引用なし
パスワード
   数式の計算より、VBAコードでの計算の方が速くなるとは思えませんが、いちおう・・

Sub Test_Calc()
  Dim Sh As Worksheet
  Dim C As Range
  Dim Ck As Variant

  Set Sh = Worksheets("Sheet1")
  With Worksheets("Sheet2")
   For Each C In .Range("A1", .Range("A65536").End(xlUp))
     Ck = Application.Match(C.Value, Sh.Range("A:A"), 0)
     If Not IsError(Ck) Then
      C.Offset(, 1).Value = Sh.Cells(Ck, 2).Value
     End If
   Next
  End With
  Set Sh = Nothing
End Sub

で、どうでしょーか ?    
0 hits

【35054】VLOOKUP関数をVBAで使うにはどうしたらい... ぷうたろう 06/2/20(月) 13:43 質問
【35061】Re:VLOOKUP関数をVBAで使うにはどうしたら... Kein 06/2/20(月) 15:27 回答
【35063】Re:VLOOKUP関数をVBAで使うにはどうした... ぷうたろう 06/2/20(月) 15:40 お礼
【35080】Re:VLOOKUP関数をVBAで使うにはどうした... ぷうたろう 06/2/21(火) 10:16 質問
【35100】Re:VLOOKUP関数をVBAで使うにはどうした... Kein 06/2/21(火) 13:35 回答
【35107】Re:VLOOKUP関数をVBAで使うにはどうした... ぷうたろう 06/2/21(火) 14:36 お礼

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