ActiveSheet.Range("M2").Value = h + 1

询问一个简单的VBA问题，关于筛选的

其实你只需要明白这句话的意思就会改了 ActiveSheet.Range("c:c").AutoFilter Field:=1, Criteria1:="*" & TextBox1.Text & "*" ActiveSheet.Range("c:c").是筛选表格的内容 Field:=1 表示第一列, ActiveSheet.Range("A:Z").AutoFilter Field:=2, Criteria1:="*" & TextBox1.Text & "*" ' '查找A:Z单元格的B列包含textbox1内容 的数据 ActiveSheet.Range("A:Z").AutoFilte

vba range 应用定义或对象定义错误

原因应该是这段程序的位置问题，如果代码在非活动工作表中，cells(1,1)等是指的代码工作表，并非活动工作表，而ActiveSheet.Range("A1:AD73")是指活动工作表的单元格。前一句改成如下这样即可： ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(73, 30)).Select

excel vba range 变量问题

range（”'sheet1'!b8:di”）这个是不对的。应该这样写：sheet1.range(cells(8,2),cells(i,4)) 或者这样：sheet1.range（"b8:d”&i） 给你个简单的例子： sub aa() i = 6 activesheet.range(cells(8, 2), cells(i, 4)).select end sub 或者： sub aa() i = 6 activesheet.range("a1:d" & i).select end sub

ActiveSheet.Range("$B$5:$AA$201").AutoFilter Field:=1

我的表里面代码是这么写的：ActiveSheet.Range("$A$1:$K$52").AutoFilterField:=4,Criteria1:="0.35",Operator:=xlFilterValues表示把D列（Field:=4）进行筛选，不要0.35的内容，你能参考写出你需要的吗？你要筛选BC、BD两列，需要写两个这样的语句，先把A1:K52换成你的数据区域，BC、BD分别是5、26，你的条件分别是0和-120，注意条件要有引号。

求一个Excel宏或者公式

Public Sub 合并列() Dim i As Long, rowFst As Long, rowSnd As Long i = 1 Do While ActiveSheet.Range("A1").Offset(0, i * 3) <> "" rowFst = ActiveSheet.Range("A35536").End(xlUp).Row rowSnd = ActiveSheet.Range("A35536").Offset(0, i * 3).End(xlUp).Row ActiveSheet.Range("A1:C" & rowSnd).Offset(0, i * 3).Copy