返回列表 上一主題 發帖

尋找文字的儲存格位置

Sub yy()
[d:h].Replace "txt", "=1/0"
[d:h].SpecialCells(xlCellTypeFormulas, 16).Select
ad = Selection.Address
Selection = "txt"
MsgBox ad
End Sub

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題