子如何把一个Excel表格的数据拆成多个表格哒() 定义Arr，Rng是范围，Sht是工作表，Dic是对象 定义k，t，Str是字符串，i是长整型，lc是长整型 应用.屏幕刷新 = 假 ‘关闭屏幕刷新防卡 Arr = 范围(A1).当前区域.值 lc = 上限(Arr, 2) ‘获取最后一列的列号 设Rng = 行(1) ‘标题行 设Dic = 创建对象(Scripting.Dictionary) ‘创建字典 从i = 2到上限(Arr) Str = Arr(i, 3) ‘承揽人名字，关键词 如果Dic不存在Str的话 ‘如果字典没有关键词 设Dic(Str) = 单元格(i, 1).调整大小(, lc) ‘把当前行放进字典里 否则 ‘如果字典已经有这个关键词了 设Dic(Str) = 合并(Dic(Str), 单元格(i, 1).调整大小(, lc)) ‘