子过程和函数未定义，如何修改
Sub selyear()
Dim x As Range, i As Integer
For i = 3 To 10 Step 1
For Each x In Range("A:A")
If cell(i, "P").Value = x.Value And x.Offset(4, 0).Value = "哈哈哈" Then
cell(i, "R").Value = x.Offset(5, 0).Value
End If
Next
Next
End Sub
excel vba 子过程和函数未定义
答案:2 悬赏:0 手机版
解决时间 2021-03-25 21:44
- 提问者网友：欺烟
- 2021-03-25 09:39
最佳答案
- 五星知识达人网友：渊鱼
- 2019-05-29 02:06
将Worksheet("sheet2").[c4].Select
改为Worksheet("sheet2").Range("c4").Select
试试看
请采纳答案，支持我一下。
改为Worksheet("sheet2").Range("c4").Select
试试看
请采纳答案，支持我一下。
全部回答
- 1楼网友：毛毛
- 2019-08-07 16:32
没有见到你的文件的表格间结构，也不知道这个过程放在哪里。所以，不好推断错在哪里。但是从语法上看，类似这一句rng offset(1, 0) = [j1]，是不是应该写成rng.offset(1, 0) = [j1]呢（rng后面有个小数点）？下面的此种语句都有这样的问题。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯