作者toma2007 (但愿长睡不用醒)
看板Office
标题Re: [问题] Excel 巨集中的储存格
时间Wed Apr 30 20:59:03 2008
用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
1F：推 lukeshih:感谢！ 这样就不用每次手动更改储存格名称了 ^^ 04/30 21:40