因有大量数据要用vba写入excel不连续的单元格,速度较慢,想问一下有没有较快的方法?
with Application
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
With Sheet1
.Range("e7") = Obj(1) '姓名
.Range("h7") = Obj(2) '性别
.Range("f8") = Obj(3) '生日
.Range("j7") = Obj(4) '工作单位
.Range("k8") =Obj(5) '员工号
.Range("m8") = Obj(9) '电话
.Range("d6") = "批准时间"
.Range("D13") = Obj(24)
.Range("f9") = Obj(26) & Obj(22) '经办人+时间
.Range("f24") = YYYY2 & "]第 " & CC & " 号"
.Range("c29") = Obj(2) & " 同志:"
.Range("d31") = "经我单位审查,于 " & YYYY & " 年 "
.Range("c33") = MM & " 月 " & DD & " 日批准,并报上级备案。现特通知,希"
.Range("j46") = Format(Obj(18), "&&&&年&&月&&日")
End With
.EnableEvents = true
.ScreenUpdating = true
.DisplayAlerts = true
End With
====================================================原表涉密是不能传的,但数据位置已经给出,说一个思路并给出代码即可。我也知道可以用二维数组的方式一次性写入,但问题是数据位置并不连续。有没有类似这个一次性写入的方法?.Cells(I, 1).Resize(1, 3) = Array(Obj(19), DateArr(9), ss) '生成水平一维数组并写入目标区域 '.
å表æ¶å¯æ¯ä¸è½ä¼ çï¼ä½æ°æ®ä½ç½®å·²ç»ç»åºï¼è¯´ä¸ä¸ªæ路并ç»åºä»£ç å³å¯ãæä¹ç¥éå¯ä»¥ç¨äºç»´æ°ç»çæ¹å¼ä¸æ¬¡æ§åå ¥ï¼ä½é®é¢æ¯æ°æ®ä½ç½®å¹¶ä¸è¿ç»
你这样的回答等于吃多番薯……
追答哈哈
思路很重要