让chatGDP整不会了

Romance_sur_le_ · 发表于 2023-6-28 00:24

各位大神，请问花黄色的这串代码，咋就执行不了呢？总提示Range作用于对象 worksheet失败

Set sourceSheet = ThisWorkbook.Sheets("Sheet2")
Set targetSheet = ThisWorkbook.Sheets("Sheet1")
valueToFind = "城市"
Set searchRange = Sheet2.Range("A1:Z1")
columnNumber = Application.WorksheetFunction.Match(valueToFind, searchRange, 0)

Sheet2.Range(Sheet2.Cells(1, columnNumber)).AutoFilter field:=1, Criteria1:="CA"

DevilW · 发表于 2023-6-28 00:45

Criteria1:="*CA*"

yuwd3 · 发表于 2023-6-28 05:22

有没有Sheet2这个工作表，Sheet2和Sheets("Sheet2")不一定是一样的，没附件，不清楚

ykcbf1100 · 发表于 2023-6-28 06:36

本帖最后由 ykcbf1100 于 2023-6-28 06:39 编辑

最好上个附件看一下。

Yalishanda30 · 发表于 2023-6-28 07:31

ykcbf1100 发表于 2023-6-28 06:36
最好上个附件看一下。

这么早

吴中泉 · 发表于 2023-6-28 07:34

1\标题好像写错了.

2\调试一下, columnNumber是不是为0或空.

ykcbf1100 · 发表于 2023-6-28 07:45

Yalishanda30 发表于 2023-6-28 07:31
这么早

今天没啥事，就上来看看。

tspliu · 发表于 2023-6-28 09:01

有些问题那是人都看不懂，别说GPT了

aecn · 发表于 2023-6-28 10:04

tspliu 发表于 2023-6-28 09:01
有些问题那是人都看不懂，别说GPT了

你错了，GPT是根据提问者的描述来生成的代码，因为GPT没有结合附件，如果提问者表达不清或有遗漏，GPT生成的代码就会出现这样的情况，并不是说GPT看不懂。

Romance_sur_le_ · 发表于 2023-6-28 14:05

Yalishanda30 发表于 2023-6-28 07:31
这么早

就是这个表，其实本来是可以将满足条件的各数据提取到表1中的，但完事儿我发现表一中的数据不是连续的，中间会有空值，弄得一个洞一个洞的，所以改为filter了，按照chatgdp的建议改怎么改也不对！

		自动登录	找回密码
密码			免费注册

[求助] 让chatGDP整不会了

评分

评分