|
▼じゅんじゅん さん、Jakaさんありがとうございました。
以下実際のコードです。
変数Stはすべて数値です。
連結した数値を決まった列(AN列)に表示したいと思います。
Select Case C.Value〜の条件を今度は
空白の場合は空白のまま
0の場合は00(0→00)
1ケタの場合は前に0をつける(4→04)
2ケタの場合はそのまま(20→20)
としたいのです。
どうぞよろしくお願いします。
********************
Dim C As Range
Dim i As Integer
Dim v As Integer
Dim Bs As String, St As String
Dim lngEndROW As Long
ngEndROW = Range("B65536").End(xlUp).Row
For i = 2 To lngEndROW
Bs = "": St = ""
For Each C In Cells(i, 5).Resize(, 34)
Bs = Trim(Cells(1, C.Column).Text)
Select Case C.Value ←※※ここの条件を変えます
Case Is = "": St = St
Case Is < 2: St = St & Bs & "/00,"
Case Is < 6: St = St & Bs & "/01,"
Case Is < 10: St = St & Bs & "/02,"
Case Else: St = St & Bs & "/99,"
End Select
Next
Range("AN:AN").NumberFormat = "@"
St = Left$(St, Len(St) - 1)
Cells(i, 40).Value = Trim(St)
Next i
|
|