|
初心者です。よろしくお願いします。
下記のような表示をしたいのですが、Select Case 〜の使い方が
よくわかりません。
特に、一桁の場合は前に0をつけるというところがわかりづらいです。
よろしくお願いします。
※A列のデータを確認
ngEndROW = Range("A65536").End(xlUp).Row
For i = 3 To lngEndROW
Bs = "": St = ""
For Each C In Cells(i, 3).Resize(, 13)
Bs = Trim(Cells(2, C.Column).Text)
Select Case C.Value
Case Is = "": St = St
Case Is = 0: St = St & Bs & "/00,"
※このあとがわかりません。
End Select
*******************************
C列 D列 E列 F列
赤 青 白 黒 (2行目〜13行目まで)
1 10 9 0 →赤/01,青/10,白/09,黒/00
12 3 7 0 →赤/12,青/03,白/07,黒/00
・・・・・ ・・・・・・・・
|
|