VBA 求助, 圖表選取資料, 如何讓他選到最後一欄非空白的值? - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

1

VBA 求助, 圖表選取資料, 如何讓他選到最後一欄非空白的值?

excel vba

t25007 2022-12-21 23:16:15 ‧ 1130 瀏覽

分享至

我想使用VBA來選取圖表的資料範圍,我想讓他選取到最後一欄非空白的值
請問有大神能幫我VBA怎麼寫嗎?

ActiveSheet.ChartObjects("圖表 1").Activate
ActiveChart.FullSeriesCollection(1).Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).Values = **"='N2 NP'!$D$15:=$D$200"**

=> 我希望$D$200變成: D欄最後一格非空白的欄位

登入發表討論

直播研討會

{{ item.subject }}

{{ item.channelVendor }} {{ item.webinarstarted }} |

{{ formatDate(item.duration) }}

直播中

1 個回答

1

海綿寶寶

iT邦大神 1 級 ‧ 2022-12-22 08:08:07

最佳解答

參考這篇即可

回應 2
分享
檢舉

t25007 iT邦新手 5 級 ‧ 2022-12-22 11:05:53 檢舉

我想請問一下~
根據他給的VBA
Range("D65536").Sellect
row1 = ActiveCell.End(x1Up).Row
這個可以找出最後一列非空白的欄列,

我如何把這個欄列再帶回我的選取範圍?
ActiveChart.FullSeriesCollection(1).Values ="='N2 NP'!$D$15:=$D$200" <-- $D$200改成找出的欄列

抱歉, 小弟的VBA能力很弱...謝謝

Misty0723 iT邦新手 3 級 ‧ 2022-12-24 20:07:07 檢舉

ActiveChart.FullSeriesCollection(1).Values ="='N2 NP'!$D$15:=$D$"&row1

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙