Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36316 / 76732

←次へ　｜　前へ→


	【45599】Re:vlookupの記載に関して

りん

- 07/1/5(金) 18:13 -


	引用なし

	パスワード

質問（煮詰まった）さん、こんばんわ。

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

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

というわけで、
　　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