用EXECL VBA写个小程序，求高手出来指点一下！！！50分急招！

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:00:57
用EXECL VBA写个小程序，当我的A列为月份，B列为日期，我想把通过A、B两个列求出年月日到C列，年可以输入，这个语句怎么写！
高手们，我要要的是个语句！！！能不能说清楚一点

要语句， 我来啊
你放一个按钮
Private Sub CommandButton1_Click()
On Error Resume Next
Y = InputBox("Year=")
For i = 1 To 1000
If Len(Range("A" & i)) + Len(Range("B" & i)) <> 0 And Len(Range("C" & i)) = 0 Then
Range("C" & i).Value = Y & "-" & Range("A" & i) & "-" & Range("B" & i)
End If
Next
End Sub
如果不愿意放一个按钮那就设定快捷键为Ctrl+Shift+W
Sub AutoDate()
' Macro recorded 3/12/2009 by Zhu ShengQuan
' Keyboard Shortcut: Ctrl+Shift+W
On Error Resume Next
Y = InputBox("Year=")
For i = 1 To 1000
If Len(Range("A" & i)) + Len(Range("B" & i)) <> 0 And Len(Range("C" & i)) = 0 Then
Range("C" & i).Value = Y & "-" & Range("A" & i) & "-" & Range("B" & i)
End If
Next
End Sub

将A列与B列连接起来，中间用&这个符号隔起来
例如：C列=（A