作者:乔山办公网日期:
返回目录:excel表格制作
n = Range("B65535").End(xlUp).Row
n = Selection.Row
你可以先定义百b= TextBox1.Text
假设你要度在sheet1中查找b,然后内定义:
with sheets("sheet1")
set a=.find(b,lookin:=xlvalues)
if not a is nothing then
.Rows(a.row).Copy Sheets("sheet2").Rows(11)
end if
end with
即可容.
ActiveCell.Row
指定单元格的行号
n=cells(3,4).row
其它类似