循环单元怎么样才能一次性写入内容

shenzhenyang

1. Sub 循环写入()
   
2. 
   
3. Application.ScreenUpdating = False '关闭屏幕刷新
   
4. With Sheets("Sheet1")
   
5. a = .Cells(Rows.Count, 1).End(xlUp).Row
   
6. 
   
7. For b = 8 To a
   
8. 
   
9. If .Cells(b, 1) <> "" And .Cells(b, 6) = "" Then
   
10. .Cells(b, 6) = False
    
11. 
    
12. End If
    
13. Next
    
14. 
    
15. End With
    
16. 
    
17.   Application.ScreenUpdating = True '打开屏幕刷新
    
18. 
    
19. 
    
20. End Sub

复制代码

请老师帮忙，要怎么样才能快速一次写入，我现在是一个单元格一个的写入，速度太慢了。

ykcbf1100

这样就行了吧。

3190496160

smiletwo

空想远快于实干，用数组

tanglf188

If .Cells(b, 1) <> "" And .Cells(b, 6) = "" Then
.Cells(b, 6) = False 你这个判断.Cells(b, 6) = ""也没啥意义啊，有还是没有都被覆盖了

gwjkkkkk

用数组，内存计算，回写单元格。。。