|
▼Kein さんへ
うまくいきました!!
ご回答いただき、本当にありがとうございました。
>ベタ書きですので、うまくいくかどうか分かりませんが・・
>
>Sub Test()
> Dim C As Range
> Dim i As Long
> Dim Bs As String, St As String
>
> For i = 2 To Range("A65536").End(xlUp).Row
> Bs = "": St = ""
> For Each C In Cells(i, 2).Resize(, 58)
> Bs = Cells(1, C.Column).Text
> Select Case C.Value
> 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
> St = Left$(St, Len(St) - 1)
> Cells(i, 60).Value = St
> Next i
>End Sub
|
|