▼选中整列表格运行宏报错？

秋Cool

各位大佬，我在论坛学习到各种vba代码后尝试自己写了一段来实现 “通过vba定位空值” 的功能，代码如下：

Sub demo（）
ref = Split(Selection.Address, ":")
r_first = Range(ref(0)).Row
c_first = Range(ref(0)).Column
r_last = Range(ref(1)).Row
c_last = Range(ref(1)).Column
Range(cells(r_first,c_first),cells(r_last,c_last)).SpecialCells(xlCellTypeBlanks).Select
End Sub

选中一整列用这个代码会报错。
如果只是框选部分单元格，用这个代码就没问题





于是我又试了另一种方法，选中整列依然报错，框选部分内容就没问题：
Sub demo（）
Dim FirstRng As Range, LastRng As Range
Dim iCount%

'iCount 选中区域单元格个数
iCount = Selection.Cells.Count
Set FirstRng = Selection.Cells(1)
Set LastRng = Selection.Cells(iCount)

'左上角单元格行列
iRow1 = FirstRng.Row
iColumn1 = FirstRng.Column       '

'右下角单元格行列
iRow2 = LastRng.Row
iColumn2 = LastRng.Column
Range(cells(iRow1,iColumn1),cells(iRow2,iColumn2)).SpecialCells(xlCellTypeBlanks).Select
End Sub





求教  (ó_ò｡)

shenjianrong163

1. Sub demo()
   
2.     r_first = Selection.Cells(1).Row
   
3.     c_first = Selection.Cells(1).Column
   
4.     r_last = Selection.Cells(Selection.Count).Row
   
5.     c_last = Selection.Cells(Selection.Count).Column
   
6.     Range(Cells(r_first, c_first), Cells(r_last, c_last)).SpecialCells(xlCellTypeBlanks).Select
   
7. End Sub

复制代码

秋Cool

shenjianrong163 发表于 2023-6-1 22:58

谢谢老师！