資料區域的選擇

[oobird]

當我要copy部分資料時常這樣寫：
Range("A6:K" & Range("a65536").End(xlUp).Row).Copy
但是當a欄底下的儲存格看似空白，但有函公式存在時，無法選取到有資料的列為止，而會選取到所有函公式的列，如a6:a100有公式：=if(b6="","",$c$1),雖然有資料的列只到a10，但還是會選到a100，請問除了改為Range("b65536")….有更好的方式嗎？能否把含公式但無數值的儲存格視為空白？

[yem]

[參考]這樣應該可以

Columns(1).Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row

[oobird]

我作不出來，給個範例好嗎？

[wang]

供您參考...

[附件已被管理員刪除]

[leonchou]

有時工作表函數還是很好用的

lastRow = 65536 - Application.CountBlank(Columns(1))
[A1].Resize(lastRow).Copy

PS. 以 A1 為基準

[oobird]

謝謝三位前輩，小弟收下學習中。

[myxp2002]

  ,利用工作表函数，我也会了，谢谢！！