改变变量默认的工作表

PolarisBeimin

在sheet2查找，但是我想让rng写在sheet1，这个应该如何写
以下是我的，不知道应该怎么改才能实现想要的，请各位前辈赐教
Sub text()
Dim rng As Range
    Set rng = Sheet2.Range("A:A").Find("", lookat:=xlWhole)
    rng = 4     '默认写在sheet2，如何更改为写在sheet1
End Sub

hfwufanhf2006

在前面加上表名：
Sheet1.Cells(rng.Row, 1) = 4
解释：
rng.Row：rng的行数
Cells(rng.Row, 1)：rng同一行的a列，1就是第 1 列，也就是 a 列
Sheet1.：再加上表名，表示写在sheet1表同样的位置上

高

Set rng = Sheet2.Range("A:A").Find("", lookat:=xlWhole)
    ss = rng.Address
    Sheet1.Range(ss) = 4  

PolarisBeimin

hfwufanhf2006 发表于 2020-5-28 09:37
在前面加上表名：
Sheet1.Cells(rng.Row, 1) = 4
解释：

又见面了，谢谢你哦

PolarisBeimin

高 发表于 2020-5-28 13:25
Set rng = Sheet2.Range("A:A").Find("", lookat:=xlWhole)
    ss = rng.Address
    Sheet1.Range(ss) ...

好的谢谢