回覆列表
-
1 # 使用者5875474949068
-
2 # 使用者7724043881117
方法/步驟
彈出如圖所示的對話方塊
再來一次“編輯”→“替換”,查詢內容輸入B,替換為輸入Sheet2!B,這樣,就全部都替換好了,這就是批次替換公式的方法
替換好之後,檢視步驟二,將“公式”前面的√去掉(如果不取消,您的公式就不會計算了)
方法/步驟
彈出如圖所示的對話方塊
再來一次“編輯”→“替換”,查詢內容輸入B,替換為輸入Sheet2!B,這樣,就全部都替換好了,這就是批次替換公式的方法
替換好之後,檢視步驟二,將“公式”前面的√去掉(如果不取消,您的公式就不會計算了)
公式法:如下公式將替換第四位開始的四位字元,如果是其他位置或者其他位數則替換其中的3和7。=LEFT(A1,3)&"****"&RIGHT(A1,LEN(A1)-7)VBA法;Sub Add_Aster()Dim myRange As RangeSet myRange = Application.InputBox("選擇區域", Default:="A1:A20", Type:=8)Dim myRange1 As RangeFor Each myRange1 In myRangeIf Len(myRange1) = 11 ThenmyRange1 = Left(myRange1, 3) & "****" & Right(myRange1, Len(myRange1) - 7)End IfNextEnd Sub