|
本帖最后由 shuidisyy 于 2020-6-7 17:01 编辑
- Sub 按钮1_Click()
- Dim irow$, n%, num$, i%, str$, arr
- irow = Sheet1.Cells(Rows.Count, 3).End(3).Row
- str = Sheet1.Cells(irow, 1).Value
- n = Cells(Rows.Count, 1).End(3).Row - 1
- If Left(str, 6) = Format(Date, "yyyymm") Then
- num = Right(str, 2) * 1
- Else
- num = 0
- End If
- ReDim arr(1 To n, 1 To 2)
- For i = 1 To n
- arr(i, 1) = Format(Date, "yyyymm") & Format(num + i, "00")
- arr(i, 2) = Date
- Next i
- Sheet1.Cells(irow + 1, 1).Resize(n, 2) = arr
- Sheet1.Cells(irow + 1, 3).Resize(n, 3).Value = Cells(2, 1).Resize(n, 3).Value
- MsgBox "已存档"
复制代码 |
|