|
▼やっちん さん:
>▼さちきょん さん:
>こんにちは。
>コードの内容は見ていませんが、
>まだ何か問題があるのでしょうか?
▼やっちん さんへ
質問がわかりずらくてすみません。
Hirofumi さんにしたのように直していただいたのですが、
S2.Cells(2, 5)を選択し、その後E列の最後行まで同じ処理を
(sheet2)
したいのですが、(vntData(v, 1))でいいのですか?
ここのところがよくわかりません。
よろしくお願いいたします。
Set rngList = S2.Cells(2, 5)
With rngList
'データ行数を取得
lngRows = .Offset(65536 - .Row).End(xlUp).Row - .Row + 1
'データが無い場合
If lngRows <= 1 And .Value = "" Then
GoTo Wayout
End If
'データを配列に取得
vntData = .Resize(lngRows + 1).Value
End With
' For v = 2 To lngRows
For v = 1 To lngRows
' If IsNumeric(vntData(v, 5)) = True Then
If IsNumeric(vntData(v, 1)) = True Then
' If Len(vntData(v, 5)) = 3 Then
If Len(vntData(v, 1)) = 3 Then
' vntData(v, 5) = Left(vntData(v, 5), 2) _
' & "." & Right(vntData(v, 5), 1)
vntData(v, 1) = Left(vntData(v, 1), 2) _
& "." & Right(vntData(v, 1), 1)
End If
End If
Next v
|
|