|
本帖最后由 ZMW 于 2014-11-13 10:17 编辑
别人帮忙写的代码怎么改进一下?谢谢!
本帖最后由 易安1 于 2014-11-13 12:25 编辑
- Sub 年份提取()
- Dim i As Long, k As Long, brr(1 To 100000, 1 To 1)
- On Error Resume Next
- With Sheet1
- For i = 2 To .Cells(.Rows.Count, "o").End(3).Row
- k = k + 1
- If IsDate(Cells(i, "o")) Then
- brr(k, 1) = Format(Cells(i, "o"), "yyyy")
- Else
- brr(k, 1) = Left(Cells(i, "o"), 4)
- End If
- Next
- End With
- [p2].Resize(k, 1) = brr
- MsgBox "OK"
- End Sub
复制代码测试已通过!
|
|