[已解决]为什么双击自动填充B列两次会出错

qinhuan66

为什么双击自动填充B列两次会出错

成绩排名表.rar (28.83 KB, 下载次数: 9)

2013-8-1 10:19 上传

点击文件名下载附件

1. Sub 单独自动填充单元格B列()
   
2. Range("A3:B1000").Select
   
3.     With Selection
   
4.          .HorizontalAlignment = xlCenter
   
5.          .VerticalAlignment = xlBottom
   
6.     End With
   
7.     With Selection '垂直居中
   
8.         .HorizontalAlignment = xlCenter '垂直居中
   
9.         .VerticalAlignment = xlCenter '垂直居中
   
10.     End With '垂直居中
    
11.    
    
12.     Range("A2").CurrentRegion.Borders.LineStyle = 1 '加边框
    
13.     Range("B3:B1000").Select
    
14.     With Selection
    
15.         .HorizontalAlignment = xlLeft
    
16.         .VerticalAlignment = xlCenter
    
17.         .ReadingOrder = xlContext
    
18.         .MergeCells = False
    
19.     End With
    
20.     Range("A3").Select '以上代码为居中对齐表格,以下代码是自动填充表格
    
21. 
    
22. Dim i As Integer, j As Long, b As String
    
23. For i = 1 To 2
    
24.     For j = 3 To Sheet1.[D65536].End(xlUp).Row
    
25.         If Sheet1.Cells(j, i) <> "" Then
    
26.             b = Sheet1.Cells(j, i)
    
27.         Else
    
28.             Sheet1.Cells(j, i) = b
    
29.         End If
    
30.     Next j
    
31. Next i
    
32. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

gaoshuichang1

2013-8-1 10:41

qinhuan66 发表于 2013-8-1 10:34
老师；经测试取消A1单元格合并也不行。谢谢

加一句 on error goto 100就好了

1. Sub 单独自动填充单元格B列()
   
2. Range("A3:B1000").Select
   
3. With Selection
   
4. .HorizontalAlignment = xlCenter
   
5. .VerticalAlignment = xlBottom
   
6. End With
   
7. With Selection '垂直居中
   
8. .HorizontalAlignment = xlCenter '垂直居中
   
9. .VerticalAlignment = xlCenter '垂直居中
   
10. On Error GoTo 100
    
11. End With '垂直居中
    
12. 
    
13. Range("A2").CurrentRegion.Borders.LineStyle = 1 '加边框
    
14. Range("B3:B1000").Select
    
15. With Selection
    
16. .HorizontalAlignment = xlLeft
    
17. .VerticalAlignment = xlCenter
    
18. .ReadingOrder = xlContext
    
19. .MergeCells = False
    
20. End With
    
21. Range("A3").Select '以上代码为居中对齐表格,以下代码是自动填充表格
    
22. 
    
23. Dim i As Integer, j As Long, b As String
    
24. For i = 1 To 2
    
25. For j = 3 To Sheet1.[D65536].End(xlUp).Row
    
26. If Sheet1.Cells(j, i) <> "" Then
    
27. b = Sheet1.Cells(j, i)
    
28. Else
    
29. Sheet1.Cells(j, i) = b
    
30. End If
    
31. Next j
    
32. Next i
    
33. 100:
    
34. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

有合并单元格。

qinhuan66

hwc2ycy 发表于 2013-8-1 10:30
有合并单元格。

老师；经测试取消A1单元格合并也不行。谢谢

我心飞翔410

又是万恶的合并单元格

gaoshuichang1

qinhuan66 发表于 2013-8-1 10:34
老师；经测试取消A1单元格合并也不行。谢谢

加一句 on error goto 100就好了

1. Sub 单独自动填充单元格B列()
   
2. Range("A3:B1000").Select
   
3. With Selection
   
4. .HorizontalAlignment = xlCenter
   
5. .VerticalAlignment = xlBottom
   
6. End With
   
7. With Selection '垂直居中
   
8. .HorizontalAlignment = xlCenter '垂直居中
   
9. .VerticalAlignment = xlCenter '垂直居中
   
10. On Error GoTo 100
    
11. End With '垂直居中
    
12. 
    
13. Range("A2").CurrentRegion.Borders.LineStyle = 1 '加边框
    
14. Range("B3:B1000").Select
    
15. With Selection
    
16. .HorizontalAlignment = xlLeft
    
17. .VerticalAlignment = xlCenter
    
18. .ReadingOrder = xlContext
    
19. .MergeCells = False
    
20. End With
    
21. Range("A3").Select '以上代码为居中对齐表格,以下代码是自动填充表格
    
22. 
    
23. Dim i As Integer, j As Long, b As String
    
24. For i = 1 To 2
    
25. For j = 3 To Sheet1.[D65536].End(xlUp).Row
    
26. If Sheet1.Cells(j, i) <> "" Then
    
27. b = Sheet1.Cells(j, i)
    
28. Else
    
29. Sheet1.Cells(j, i) = b
    
30. End If
    
31. Next j
    
32. Next i
    
33. 100:
    
34. End Sub
    

复制代码

hwc2ycy

确实有这个问题，另外，还有一种可能就是操作的时候如果只有一个单元格这个错误也会有。
==，我再测会。

hwc2ycy

BORDERS集合有如下成员：
xlDiagonalDown
xlDiagonalUp
xlEdgeBottom
xlEdgeLeft
xlEdgeRight
xlEdgeTop
xlInsideHorizontal
xlInsideVertical

如果缺少一个不能操作的话，就会报错的。

hwc2ycy

你可以先清除格式就好了。