Sub？文本()
暗淡？我%，？j%
為了什麽？我？=?1?去哪？三
設置？s？=?ActiveSheet。ChartObjects.Add((i？-?1)?*?300,?100,?300,?150)
南圖表。圖表類型？=?xlColumnClustered
南Chart.SetSourceData？來源:=Sheet1。範圍(Sheet1。細胞(2，1),?Sheet1。細胞(5，我？+?1)),?PlotBy:=xlColumns
南海圖。位置？其中:=xlLocationAsObject，？名稱:="Sheet1 "
南Chart.HasDataTable？=?真實的
如果？我？& gt？1?然後
為了什麽？j？=?1?去哪？我？-?1
南Chart.SeriesCollection(1)。挑選
選擇。刪除
然後
結束？如果
然後
結束？潛水艇