求老师指点，如何用代码指定要保存内容的第一个单元格

skerry

如何用代码实现数据表一、数据表二、数据表三中的内容，通过点击表中的存档按钮后，自动复制到汇总表对应的列下面,汇总表中的数据是不断增加的，有新增加的时候，数据从C列最后一个空白单元格开始添加。如果能实现前面的日期、编号也能自动增加最理想，感谢老师指点！

shuidisyy

1. Sub 按钮1_Click()
   
2.     Dim irow$, n%, num$, i%, str$, arr
   
3.     irow = Sheet1.Cells(Rows.Count, 3).End(3).Row
   
4.     str = Sheet1.Cells(irow, 1).Value
   
5.     n = Cells(Rows.Count, 1).End(3).Row - 1
   
6.     If Left(str, 6) = Format(Date, "yyyymm") Then
   
7.        num = Right(str, 2) * 1
   
8.     Else
   
9.        num = 0
   
10.     End If
    
11.     ReDim arr(1 To n, 1 To 2)
    
12.     For i = 1 To n
    
13.         arr(i, 1) = Format(Date, "yyyymm") & Format(num + i, "00")
    
14.         arr(i, 2) = Date
    
15.     Next i
    
16.     Sheet1.Cells(irow + 1, 1).Resize(n, 2) = arr
    
17.     Sheet1.Cells(irow + 1, 3).Resize(n, 3).Value = Cells(2, 1).Resize(n, 3).Value
    
18.     MsgBox "已存档"

复制代码

skerry

shuidisyy 发表于 2020-6-7 17:00

感谢老师指点，这两天有事外出，才看到信息，再次感谢！