excel如何把多sheet合並到一個sheet表里的宏命令

========================================另外一個合並方式
Sub 合並()
    Dim i As Integer
    For i = 1 To Worksheets.Count Step 1
        Worksheets(i).Range("1:" & Worksheets(i).[a65536].End(3).Row).Copy [a65536].End(3).Offset(1)
    Next
End Sub

=========================================已經成功的宏方法**********
Sub 合並方法2()
    Dim i As Integer
    For i = 1 To Worksheets.Count Step 1
        Worksheets(i).Range("1:" & Worksheets(i).[a65536].End(3).Row).Copy [a65536].End(3).Offset(1)
    Next
End Sub

==============================================================

宏替換代碼：

Sub 刪所有()
    Cells.Replace What:="座", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="號", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="樓", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="幢", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="棟", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="室", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="null", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


End Sub

 

---------------

Sub 刪樓字()
    Cells.Replace What:="樓", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Sub 刪號字()
    Cells.Replace What:="號", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Sub 刪幢字()
    Cells.Replace What:="幢", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Sub 刪空格字()
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Sub 刪室()
    Cells.Replace What:="室", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Sub 刪xx小區()
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
=============================================================

Excel表格 如何使同在一個單元格內的文字與數字分離

文字在左，數字在右。

 =LOOKUP(9E+307,--RIGHT(E89,ROW($1:$99)))

如上圖：會將右側的數字都取出來。

文字在右，數字在左。

=LOOKUP(9E+307,--LEFT(E89,ROW($1:$99)))

 

-----------------------------------------------

將excel中漢字和數字分開：

比如：
A1：張三12354684
A2：李四/125687324
A3：584388734/張三

先把所有的"/"“，|、 ”空格等都替換掉（使用查找與替換功能）
然后B1={=MID(A1,MATCH(TRUE,CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>255,),LENB(A1)-LEN(A1))}
C1=SUBSTITUTE(A1,B1,"")

注意B1中的公式為數組公式，輸入結束后按Ctrl+Shift+Enter結束。
-------------------------------------------------------------------------------