Excel VBA質問箱 IV

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

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


36316 / 76732 ←次へ | 前へ→

【45599】Re:vlookupの記載に関して
回答  りん E-MAIL  - 07/1/5(金) 18:13 -

引用なし
パスワード
   質問(煮詰まった) さん、こんばんわ。

>>Range("D2", Range("D65536").End(xlUp)).Offset(, 2) _
>>.Formula = "=VLOOKUP(TEXT(D2,""000""),担当者!A1:B159,2,FALSE)"
Keinさん、かみちゃんさんの式をそのまま拝借。
担当者の検索範囲は固定ですよね。

> この担当や得意先が通常10行程度なのですが、最大100行とかになり
> 手作業が手間でマクロで処理したいと思い色々質問していました。

というわけで、
  F2に数式を入力
  D列にデータが入っているところまで下方向にコピー(FillDown)
これを記録して、分岐を入れて整理するとこんな感じ。

Sub TEST()
  Dim Rmax As Long
  '
  With Application.ActiveSheet
   Rmax = .Range("D10000").End(xlUp).Row '最下行番号
   'データが入っていれば
   If Rmax > 1 Then
    .Range("F2").Formula = _
      "=VLOOKUP(text(D2,""000""),担当者!$A$1:$B$159,2,FALSE)" '式
    If Rmax > 2 Then _
      .Range("F2:F" & Rmax).FillDown '下方向へコピー
   End If
  End With
End Sub

こんな感じです。

0 hits

【45360】vlookupの記載に関して 質問(煮詰まった) 06/12/20(水) 17:51 質問
【45363】Re:vlookupの記載に関して かみちゃん 06/12/20(水) 20:02 発言
【45385】Re:vlookupの記載に関して 質問(煮詰まった) 06/12/21(木) 15:29 質問
【45389】Re:vlookupの記載に関して かみちゃん 06/12/21(木) 20:20 発言
【45405】Re:vlookupの記載に関して 質問(煮詰まった) 06/12/22(金) 9:47 お礼
【45594】Re:vlookupの記載に関して 質問(煮詰まった) 07/1/5(金) 15:58 質問
【45597】Re:vlookupの記載に関して Kein 07/1/5(金) 16:44 発言
【45598】Re:vlookupの記載に関して 質問(煮詰まった) 07/1/5(金) 17:33 質問
【45599】Re:vlookupの記載に関して りん 07/1/5(金) 18:13 回答
【45600】Re:vlookupの記載に関して 質問(煮詰まった) 07/1/5(金) 18:25 お礼

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