Re: [問題] Excel 巨集中的儲存格

[toma2007 (但願長睡不用醒)]

用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
推 lukeshih:感謝！ 這樣就不用每次手動更改儲存格名稱了 ^^