Excel VBA質問箱 IV

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

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


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

49386 / 76732

←次へ　｜　前へ→


	【32256】抽出・入力方法

どんぼ - 05/12/11(日) 20:43 -


	引用なし

	パスワード

エクセルで下記のような表があり、品名を入力しマクロを実行すると、
ラベル番号が入り、1つ前の情報（同品名）を取得する仕組みを作成しています。
ラベル番号は出来たのですが、項0002のデータ（行）が取得できません。
データ量が膨大ですので、簡単に出来る方法がありましたらお願いいたします。

項　　品名　　ラベルNo　備考
0001　りんご　10001
0002　アイス　20001
0003　弁当　　30001　
0004　りんご　10002
.　　
.　　
3000　アイス　20002　　<新規入力

Sub TEST()
　　Dim wkSheet As Worksheet
　　Dim rng As Range
　　Dim LNo As Long
　　Dim row As Long
　　
　　Set wkSheet = Worksheets("test")
　　
　　With wkSheet
　　　　Set rng = wkSheet.Range("A1").SpecialCells(xlCellTypeLastCell)
　　
　　　　row = .Cells.Find("*", rng, , , xlByRows, xlPrevious).row
　　　　LNo = wkSheet.Evaluate _
　　　　　　("=LARGE(IF(B2:B" & row & "=""りんご"",C2:C" & row & ",),1)")
　　　　.Range("C" & row).Value = LNo + 1
　　End With
　　　　　　
End Sub

0 hits

▼

【32256】抽出・入力方法 どんぼ 05/12/11(日) 20:43

≪