如何讓執行巨集的範圍，剛好在這一次複製的範圍內 - Excel程式區

[發問] 如何讓執行巨集的範圍，剛好在這一次複製的範圍內

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2016-10-8 15:47 | 顯示全部帖子

回復 2# pupai
是這樣媽?

Option Explicit
Sub test()
Dim Rng As Range
Selection.PasteSpecial xlPasteValuesAndNumberFormats
Set Rng = Selection
Range("B" & Rng.Row).Resize(Rng.Rows.Count).Replace What:="/", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2016-10-9 14:19 | 顯示全部帖子

回復 9# pupai
試試看

Option Explicit
Sub Ex()
Dim Rng As Range
Selection.PasteSpecial xlPasteValuesAndNumberFormats
Set Rng = Selection
With Range("B" & Rng.Row).Resize(Rng.Rows.Count)
.Cells.TextToColumns Destination:=.Cells, TextQualifier:=xlNone, DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, FieldInfo:=Array(1, 5), TrailingMinusNumbers:=True
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 願要大、志要堅、氣要柔、心要細。