作者johnny1215 (阿哲)
看板Office
标题[算表]请教VBA选取最右边栏位的不连续多个储存格
时间Sun Aug 4 18:21:19 2019
软体: office excel
版本:
2010
请问要如何写 选取最右边多个不连续储存格
我写这样，但却说 object required (run time error '424')
code 如下:
dim a
a=cells(1,1).end(xltoright).column+1
[a & "1, "& a & "22] = 固定值
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.204.73.230 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1564914081.A.05E.html
1F：→ soyoso: a应是要用於栏号的部分吧，那1或22是列号吗？ 08/04 18:30
2F：→ soyoso: 如果是的话 range(cells(1,a),cells(22,a))=固定值 08/04 18:31
3F：→ soyoso: 或是cells(...).resize =固定值的方式 08/04 18:31
4F：→ johnny1215: 出现 run time error 1004 08/04 19:37
6F：→ soyoso: 回文写法测试上是可以执行的 08/04 19:46
8F：→ soyoso: 因此需要知道巨集错误的该行是如何写 08/04 19:48
9F：→ soyoso: 如果要填入的资料不在作用工作表时所回传的错误讯息 08/04 19:52
10F：→ soyoso: 就改为sheets(..).range(cells(r,c).address,cells(r,c). 08/04 19:52
11F：→ soyoso: address)=固定值 08/04 19:53
12F：→ soyoso: 或是以range(sheets(..).cells(..),sheets(..).cells(..)) 08/04 19:55
13F：→ soyoso: 方式 08/04 19:55
14F：→ johnny1215: 可以了。但请问如果只要 1跟22=固定值 该如何写 08/04 20:52
15F：→ soyoso: 1跟22=固定值？这是指什麽，带入固定值？ 08/04 20:55
16F：→ johnny1215: 只有第一列与第22列才带入固定值 08/04 20:58
17F：→ johnny1215: 其它列不要带 08/04 20:59
18F：→ soyoso: 是指原本是范围，而要改为头尾的储存格填入值 08/04 21:00
19F：→ johnny1215: yes 08/04 21:01
20F：→ soyoso: sheets.range(cells.address,cells.address) 08/04 21:02
21F：→ soyoso: ,(逗号)改为 & "," & 08/04 21:02
22F：→ johnny1215: 可以了，谢谢高手！ 08/04 21:05