[已解决]，VBA选择列能不能用数字表示？

含月化烛

用VBA选择列可以用数字表示吗？ 用数字表示列.rar (6.08 KB, 下载次数: 6)

2014-11-5 10:36 上传

点击文件名下载附件


我的目的是，要选择的列是动态变化的，所以我想用获取需要的列，进行处理，只能用数字表示，而不能用字母表示。
我的代码是：
Sub t()
    Dim i%
        i = Cells("2", Columns.Count).End(xlToLeft).Column   ‘获取第二行中最后有数字的一列
          Sheets(1).Columns(i + 1 & ":" & i + 2).Select            ‘选中有数字的后面两列
       Selection.EntireColumn.Hidden = False                        ’显示选中的两列
End Sub

运行到第二句，选择列时，总是出现下面的错误！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-5 10:40

1. Sub t()
   
2.     Dim i%
   
3.     i = Cells("2", Columns.Count).End(xlToLeft).Column   '获取第二行中最后有数字的一列
   
4.     Sheets(1).Columns(i + 1).Resize(, 2).Hidden = False                           '显示选中的两列
   
5. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

一列可以用columns(1).select来。
多列的话不行。

含月化烛

hwc2ycy 发表于 2014-11-5 10:28
一列可以用columns(1).select来。
多列的话不行。

麻烦你再看一下我的帖子内容，如果想动态的选择多列应该怎么办？

hwc2ycy

1. Sub t()
   
2.     Dim i%
   
3.     i = Cells("2", Columns.Count).End(xlToLeft).Column   '获取第二行中最后有数字的一列
   
4.     Sheets(1).Columns(i + 1).Resize(, 2).Hidden = False                           '显示选中的两列
   
5. End Sub

复制代码

WreckRalf

Columns参数可以是数值或文本，
如果为数值： Columns(3)，
如果为文本则必须是能表示一个或多个整列引用地址的文本，如：Columns("A:D")

但是在你的例子中，相当于Columns("1:3")，里面根本不是数值，也不是能表示整列引用的文本，故而出错。
如果非得用Columns和数值来表示连续的多列，则可以考虑这么写： Range(Columns(1),Columns(3))

hwc2ycy

你可以选择单元格 RANGE("A1:B1").ENTIRECOLUMN，这样不就可以返回整个列嘛。
由单元格可以反回所在的行，列，整行，整列，再籍由entirerow,entirecolumn，resize来扩大区域

qh8600

1. Sub demo()
   
2.     Dim a As String, b As String, x As String
   
3.     a = Split(Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1).Address(ColumnAbsolute:=False), "$")(0)
   
4.     b = Split(Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 2).Address(ColumnAbsolute:=False), "$")(0)
   
5.     x = a & ":" & b
   
6.     Sheet1.Columns(x).Select
   
7. End Sub
   

复制代码

楼主看看是不是这个效果

qh8600

WreckRalf 发表于 2014-11-5 10:45
Columns参数可以是数值或文本，
如果为数值： Columns(3)，
如果为文本则必须是能表示一个或多个整列引用 ...

1105.rar (12.56 KB, 下载次数: 11)

2014-11-5 11:03 上传

点击文件名下载附件

。。。。。。