作者abc9gad (乡民爱发呆)
看板Office
标题Re: [算表] EXCEL VBA Range.Select 选取指令问题
时间Wed Dec 11 17:03:31 2019
软体:EXCEL
版本:2010
刚好遇到类似的问题...借个标题请教版上前辈
刚有爬了原文跟板上高手回覆，还是试不出来我要的..
我的问题如下
https://reurl.cc/Znv1oM
录制完巨集後，我想将L3的公式，下拉到皆有储存格的范围(本次是L3:L53)
但每次档案的范围皆不同，黄底的部份是我自己改跑不成功的公式
请教版上前辈这边应该要如何修改 谢谢
Selection.AutoFill Destination:=Range.Offset(1).Select <-自己改的
' Selection.AutoFill Destination:=Range("L3:L53") <-录制的
--
Arguing on the Internet is like running in the Special Olympics: even if you
win, you're still retarded."
Jeriah
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 210.242.212.205 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1576055014.A.10A.html
1F：→ soyoso: 因为范围不同要抓取最後一笔有值的储存格或列号 12/11 17:10
※ 编辑: abc9gad (210.242.212.205 台湾), 12/11/2019 17:10:26
2F：→ soyoso: 储存格range.end(..)、range.find，列号range.row 12/11 17:11
3F：→ soyoso: 资料如果连续的话工作表函数count或counta 12/11 17:11
4F：→ soyoso: 储存格的话range("L3",所取得储存格)，列号的话"L3:L"&列 12/11 17:14
5F：→ soyoso: 号，有写入变数的话就以变数来带 12/11 17:14
6F：→ soyoso: range.end(..)写法类似内文连结下方range("a2").end(xldow 12/11 17:19
7F：→ soyoso: n)，这有限制就是资料要连续且至少储存格a3要有值 12/11 17:21
8F：→ soyoso: 如不一定的话，可看最下方储存格range.end(xlup)的方式来 12/11 17:21
9F：→ soyoso: 取得，这取得是储存格range，如要列号的话则後面加上.row 12/11 17:22
10F：→ soyoso: 那range.offset要如何应用在实际巨集内，再自行调整 12/11 17:23
11F：→ soyoso: 另外destination内以range，select的部分不用 12/11 17:24