用VB将EXCEL分列~~

[NHGIGGS]

小弟有一EXCEL表。其中D列记录日期，格式是：2009-2-6。

请问怎样将D列拆分成三列。即年、月、日各为一列。

用VB能实现吗？求教~~~

[jhone99]

dim a() as string

with xlssheet
    for i=2 to [A65536].End(xlUp).Row
        a=split(.cells(i,1),"-")
        .cells(i,2)=a(0)
        .cells(i,3)=a(1)
        .cells(i,4)=a(2)
    next i
end with

[东方之珠]

EXCEL表中的日期格式是多种多样，不一定是短横线“-”。
最好好的办法是将D列的数据拆分后，分别写到其他三列中：
Y=year(D列第一行的数据)‘取得年份
M=month(D列第一行的数据)'取得月份
D=day(D列第一行的数据)'取得日

[NHGIGGS]

原来EXCEL中带有分列功能.

谢谢各位的帮忙!