在一格显示两个日期和符号

ymycylh · 发表于 2018-9-30 21:19

1234.zip (2.46 KB, 下载次数: 6) 当在第三列输入日期及符号后，在第一列自动显示出与第二列一样的日期格式

719404338 · 发表于 2018-9-30 21:52

Sub t()
Dim arr, i%
arr = [e4:g10]
For i = 4 To 10
Range("c" & i) = CLng(arr(i - 3, 1)) & "~" & CLng(arr(i - 3, 3))
Range("d" & i) = Year(arr(i - 3, 1)) & "年" & Month(arr(i - 3, 1)) & "月" & Day(arr(i - 3, 1)) & "日～" & Year(arr(i - 3, 3)) & "年" & Month(arr(i - 3, 3)) & "月" & Day(arr(i - 3, 3)) & "日"
Next
End Sub

复制代码

ymycylh · 发表于 2018-9-30 22:21

719404338 发表于 2018-9-30 21:52

老师，用函数能不能实现

hopeson2010 · 发表于 2018-10-1 12:15

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 在一格显示两个日期和符号