wxf666
2022-08-21 23:09:21 +08:00
还是用 vba 快些吧*(反正我想不出来有啥公式能搞定)*
VB 伪代码*(我不熟悉 Excel 的对象)*:
Dim 输入行 As Integer, 输出行 As Integer, 年 As Long
Dim 起始年月 As Long, 终止年月 As Long, 起始年 As Integer, 终止年 As Integer
输入行 = 1
输出行 = 1
While Len(单元格("A" & 输入行))
起始年月 = CLng(单元格("B" & 输入行))
终止年月 = CLng(单元格("C" & 输入行))
起始年 = 起始年月 \ 100
终止年 = 终止年月 \ 100
For 年 = 起始年 To 终止年
单元格("A" & 输出行) = 单元格("A" & 输入行)
单元格("B" & 输出行) = CStr(年 * 100 + IIf(年 > 起始年, 1, 起始年月 Mod 100))
单元格("C" & 输出行) = CStr(年 * 100 + IIf(年 < 终止年, 12, 终止年月 Mod 100))
输出行 = 输出行 + 1
Next
Wend