jeby
中學生
 離線
文章: 87
|
請問各位高手
我想用vba自動選取向下選取有資料的部份
a b c d
1 1 1 1
2 2 2 2
3 3 3 3
英文部份一定會有，數字部份不一定
我要如何讓vba自動選取
|
|
|
|
|
已記錄
|
|
|
|
leonchou
論壇維護群
離線
文章: 1160
|
方法不少，視情況而定 --
方法一
lastcol = [A1].End(xlToRight).Column
lastrow = [A65536].End(xlUp).Row
Range([A1], Cells(lastrow, lastcol)).Select
方法二
Range([A1], Cells.SpecialCells(xlCellTypeLastCell)).Select
方法三
[A1].CurrentRegion.Select
方法四
Activesheet.UsedRange.Select
暫時想到這些了。
|
|
|
|
|
已記錄
|
|
|
|
jeby
中學生
離線
文章: 87
|
可以用了謝謝大大
|
|
|
|
|
已記錄
|
|
|
|
marco45070
中學生
離線
文章: 19
|
請問leonchou版主...小弟也有類似的問題想要請教你...
a b c d e
1 1 1 1 =c1+d1 <---公式
2 2 2 2
3 3 3 3
於e2的欄位輸入公式後....要複製到最後一個"有資料的儲存格"
此Range要如何設....
例一.
Range("D2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],業務區分!R1C1:R11C2,2,0)"
Selection.AutoFill Destination:=Range("D2:D18915")
Range("D2:D18915").Select
紅色字為用錄製的方式得到的...
但因為原始的資料會隨時間而直持續增加....
煩請指點小弟....謝謝
|
|
|
|
|
已記錄
|
|
|
|
oobird
凸槌的木工
論壇維護群
離線
文章: 4429
|
試試：Range("D2:D" & [D2].End(xlDown).Row).Select
想想似乎有問題，D欄這時應該是空白的，把[D2].改成[C2].吧。
|
|
|
|
« 最後編輯時間: 2005-05-16, 23:07:19 由 oobird »
|
已記錄
|
結廬待慧君
|
|
|
marco45070
中學生
離線
文章: 19
|
請教oobird版主...
關於這一行的正確位置要放那..
Range("D2:D" & [C2].End(xlDown).Row).Select
因為此行前面有個下拉的動作
Selection.AutoFill Destination:=Range("D2:D18915")
對不起...小弟還是不太懂耶....
|
|
|
|
|
已記錄
|
|
|
|
marco45070
中學生
離線
文章: 19
|
對不起....oobird版主...
小弟搞懂了....
真是謝謝你....感激...感激
|
|
|
|
|
已記錄
|
|
|
|
leonchou
論壇維護群
離線
文章: 1160
|
提供另一方法
[D2].FormulaR1C1 = ...
[E2].FormulaR1C1 = ...
lastRow = [C65536].End(xlUp).Row
Range("D2:E" & lastRow).FillDown
|
|
|
|
|
已記錄
|
|
|
|
martin57
小學生
離線
文章: 2
|
這個好方便啊
今天第一次碰excel 的VBA
Access不好處理的 我只好靠excel了
不過資料欄位寫死也很不恰當
這個方法剛剛好可以擷取有資料的部分
感謝先進的教導 謝謝
|
|
|
|
|
已記錄
|
|
|
|
|
sasser
|
請問以上各位先進提供之語法如何運用於下列樞紐分析表之程式碼中以取代"CC1T!R1C1:R488C28",因為每次執行時之資料欄列數並不一定,所以需要能自動選取資料範圍,或是有其他方法?
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"CC1T!R1C1:R488C28").CreatePivotTable TableDestination:=Range("A3"), _
TableName:="樞紐分析表1"
|
|
|
|
|
已記錄
|
|
|
|
|
作者
