静水流深

1、输入日期，返回周几和该月剩余工作天数 Sub test() Dim dt As Date, t1 As Integer, t2 As Date, i As Date, temp As Integer dt = Application.InputBox("请输入日期：" & Chr(10) & _ "如：2021-09-08", _ "选择日期", "2021-09-08", , , , 1) t1 = Weekday(dt, 2)

1、运用VBA.Split() 给字符串分列，选取第一部分 例：“101203\其他货币资金\低于等于3个月的流动性理财存款”，选取“101203” Sub test() Dim rows As Integer '声明变量 rows = Range("A1048576").End(xlUp).Row '数据的最下边位置 'Range("c1") = rows For i = 1 To rows If (Range("B" & i) = "") Then Rang