Re: [問題] Excel 巨集中的儲存格
用ActiveCell.Address傳回現在作用中的儲存格位址(下例中的X)
然後把原來的Range("A1")改成Range(X)即可.
Sub Macro1()
X = ActiveCell.Address
Selection.TextToColumns Destination:=Range(X), _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), _
TrailingMinusNumbers:=True
End Sub
※ 引述《lukeshih (我真的是不了解你阿!)》之銘言：
: 您所使用的軟體為:Excel 2003
: 版本:Excel 2003 sp3
: 問題:我錄製一個巨集內容為：將某一儲存格內的連續數字，利用資料頗析-固定寬度
: 的功能將之分成n格(如:數字為0~9，則分成10格)。現在，執行結果沒問題。
: 問題卡在若更換一個儲存格則無法作用。我看VBA裡面，儲存格的位置被設成
: 我錄製時的位置！
: 請問有沒有辦法，我任選一個儲存格按下執行時便能分割?
: 感謝！
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.113.21.188
推
04/30 21:40, , 1F
04/30 21:40, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
