|
▼tantan さん:
返事が遅くなりすみませんでした。
>もう無くなっている箇所は#N/Aとなっているので、その箇所でエラーとなって
>しまいます
すっとこどっこいでした。すみません。(≧ω≦)b
じゅんじゅんさんのコードのほうが高度で正確だと思いますが、
Sub test()
Dim y As String
Dim m As String
Dim d As String
For i = 1 To 1500
If Not IsError(Range("C" & i)) Then
If Range("A" & i) = "" And Range("C" & i) <> "" Then
y = Left(Cells(i, 3), 4)
m = Mid(Cells(i, 3), 5, 2)
d = Right(Cells(i, 3), 2)
Range("A" & i) = y & "/" & m & "/" & d
End If
End If
Next i
End Sub
今度は作動テストしました。
じゅんじゅんさんのコードから IsError を参考にしましたが UBound は私には高度すぎてヘルプを理解する為のヘルプが必要です。初心者でも解り易いヘルプがあればトホホ。(~_~;)
|
|