[已解决]通过字典表示列标

837852190 · 发表于 2021-9-18 21:20

ThisWorkbook.Sheets(sheet1).Range(ThisWorkbook.Sheets(sheet1).Range("c" & k + 1), ThisWorkbook.Sheets(sheet1).Range(dy(ActiveWorkbook.Range(d18).End(xlUp).Value) & k + 1)).SpecialCells(xlCellTypeBlanks) = 0 求问这句问题在哪，在程序里也不报错-----dy是字典，用dy(ActiveWorkbook.Range(d18).End(xlUp).Value)表示列标

最佳答案

月排行榜 / 总排行榜

zjdh

2021-9-19 10:00

本帖最后由 zjdh 于 2021-9-19 10:04 编辑

dy(ActiveWorkbook.sheets(“sheet1”).Range(“d18”).End(xlUp).Value)

跳转到最佳答案楼层

roserice · 发表于 2021-9-18 22:48

本帖最后由 roserice 于 2021-9-18 23:02 编辑

Sheets(sheet1), ActiveWorkbook.Range(b18)
你想达到什么目地,还是把代码写全了吧,上传个附件

zjdh · 发表于 2021-9-19 10:00

本帖最后由 zjdh 于 2021-9-19 10:04 编辑

dy(ActiveWorkbook.sheets(“sheet1”).Range(“d18”).End(xlUp).Value)

roserice · 发表于 2021-9-19 10:07

本帖最后由 roserice 于 2021-9-19 10:13 编辑

dy.Add 1, ActiveWorkbook.Sheets(5).Range("h18").End(xlUp).Column

roserice · 发表于 2021-9-19 11:55

用range(range(),cells(行,dy(1))间接引用作为列标,实现空单元格填入零值

837852190 · 发表于 2021-9-19 19:05

roserice 发表于 2021-9-18 22:48
Sheets(sheet1), ActiveWorkbook.Range(b18)
你想达到什么目地,还是把代码写全了吧,上传个附件

感谢你的回复复制粘贴过来 “”丢了我的程序代码是加了“”

837852190 · 发表于 2021-9-19 19:21

roserice 发表于 2021-9-19 11:55
用range(range(),cells(行,dy(1))间接引用作为列标,实现空单元格填入零值

感谢你的解答用cells(行,dy(1)表示可行追问一下为什么用range("dy(1)"& 18)会不行

roserice · 发表于 2021-9-19 20:04

本帖最后由 roserice 于 2021-9-19 20:07 编辑

dy(1)的值是ActiveWorkbook.Sheets(5).Range("h18").End(xlUp).Column的结果，是一个数字，是列数，不是A,B,C…,第几列，后面在加18,就不对了，我这个用在cells里做列数可以

837852190 · 发表于 2021-9-19 20:44

roserice 发表于 2021-9-19 20:04
dy(1)的值是ActiveWorkbook.Sheets(5).Range("h18").End(xlUp).Column的结果，是一个数字，是列数，不是A,B ...

感谢你的回复不好意思是我另一个代码没注释掉导致我以为你的上个解释是可行其实用cells（x,y)还是不行。针对你现在的这个回复我用一个工作表测试过 dy（）返回的是字母因为我定义字典是dy("吃饭")=c dy("睡觉“)=s .....

837852190 · 发表于 2021-9-19 21:01

感谢大家的回复我找原因了 dy(ActiveWorkbook.Range(d18).End(xlUp).Value 缺了指定工作表sheets
应该是dy(ActiveWorkbook.sheets(1).Range(d18).End(xlUp).Value
哎脑子弄蒙圈了

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