| |
▼じゅんじゅん さん：
ありがとうございます。ぴこさんのコードをためしていたら
じゅんじゅんさんからも回答を頂いていたことに気づきませんでした。
>Ｃ列に#NAがあったら何もしない。
>Ａ列に値があったら変更しない。
>Ａ列が空白だったら、Ｃ列の文字列を使用し日付データにしてＡ列に入れる。
まさにそのとおりです！！
コードを試させていただきました。
>Sub test()
> Dim v, vv
> Dim i As Long
>
> vv = Range("C1", Cells(Rows.Count, 3).End(xlUp))
> v = Range("A1", Cells(UBound(vv, 1), 1))
> For i = 1 To UBound(vv, 1)
> If Not IsError(vv(i, 1)) Then
> v(i, 1) = IIf(v(i, 1) <> Empty, v(i, 1), _
> DateSerial(CInt(Mid(vv(i, 1), 1, 4)), _
> CInt(Mid(vv(i, 1), 5, 2)), _
> CInt(Mid(vv(i, 1), 7, 2))))
> End If
> Next
> Range("A:A").ClearContents
> Range("A1").Resize(UBound(v, 1)).Value = v
>End Sub
v(i, 1) = IIf(v(i, 1) <> Empty, ･････････
のとこでエラーとなってしまいました。
このコードは自分には少しレベルが高いので、原因解読＆TESTに時間が
かかりそうです。
行いたいことは、じゅんじゅんさんのおっしゃる通りなのでこのコードをもう少し
勉強したいと思います。ありがとうございます。
とりあえず、報告まで。。
|
|
tantan
- 07/11/19(月) 21:07 -
