设置变量，Set myRange = Range("J" & i) '引用J列的第4行单元格
其实这里 的myRange就是J4单元格，最后让它=Nothing就是清除这个变量的引用，让它等于空。说实话，代码可以改为：
Sub 文本框4_单击()
Dim i As Long
Dim myRange As Range
Range("J" & 4) .Select‘如果是选择第4行，那代码就应该是：Range("4:4“) .Select
End Sub
这样可以实现同样功能，没必要用那么多代码，搞得那么复杂。顺便说一下，你说的删除那一句代码，没什么影响，是的，它无非就是释放了变量的内存，当这代码运行后，没了等于Nothing那一句，系统也会自动释放的。
MYRANGE.SELECT就是选择第4行单元格，就是上一句话的 区域->Range("J" & i)
SET MYRANGE =NOTHING就是第4行单元格清空、
设置SET MYRANGE =NOTHING为空，就是MYRANGE不再引用任何单元格
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024