VBA--实例1.1--多表单据汇总

实例

多表单据汇总

目标	excel中多表单据中特定cell中的内容汇总成数据条。
demo分解	usedrange的首个非空的单元格定位 实时更新的数据清除
文件	不知怎们上传demo文件知道的留言一下
技术思辨	循环定位range方式： 方式1：可以是cell()的变量变化。 方式2：也可以是offset()的偏移。多用于range的整体偏移。

代码1需要清空数据

Sub subroutine1()
    Dim r, c As String
    r = 4   '确定编辑的首行信息
    Rows(r & ":" & 65536).Delete    '清空数据
    
    Dim sht