Excel VBA質問箱 IV

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

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


25409 / 76732 ←次へ | 前へ→

【56664】Re:順位表示
発言  もふもふ  - 08/6/28(土) 16:13 -

引用なし
パスワード
   Sub test()
Dim v As Variant
Dim vv As Variant
Dim w() As Long, x() As Long
Dim j As Long, k As Variant

vv = Range("B3", Cells(Rows.Count, 2).End(xlUp)).Value
ReDim w(1 To UBound(vv, 1)), x(1 To UBound(vv, 1))

For j = 1 To UBound(vv, 1)
   v = Split(vv(j, 1), "→")
   w(j) = v(0): x(j) = v(1)
Next

For j = 1 To UBound(vv, 1)
   With WorksheetFunction
     k = .Small(x, j)
     Range("B2").Offset(0, w(.Match(k, x, 0))).Value = j
   End With
Next
End Sub
こんな感じのことでしょうか?
かなり荒っぽいですが。

0 hits

【56654】順位表示 トキノハジメ 08/6/27(金) 17:33 質問
【56657】Re:順位表示 もふもふ 08/6/27(金) 21:06 発言
【56660】Re:順位表示 トキノハジメ 08/6/27(金) 22:40 質問
【56661】Re:順位表示 もふもふ 08/6/28(土) 6:45 発言
【56662】Re:順位表示 トキノハジメ 08/6/28(土) 13:15 質問
【56664】Re:順位表示 もふもふ 08/6/28(土) 16:13 発言
【56668】Re:順位表示 トキノハジメ 08/6/29(日) 11:11 質問
【56669】Re:順位表示 もふもふ 08/6/29(日) 11:44 発言
【56693】Re:順位表示 トキノハジメ 08/6/30(月) 20:36 お礼

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