Row Dim s_Cxx Dim i As Integer For i = 2 To LastRow Select Case UCase(Left(Cells(i, 10).Value, 1)) Case "s" s_Cxx = "D" Case "0" s_Cxx= "SD" Case "1", "R", ...
確定! 回上一頁