Sub Macro3()
'
' Macro3 Macro
'
'
Selection.TextToColumns Destination:=Range("E1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
End Sub
Function 删除重复(结束列 As Variant) As Variant
qq = Array(1, 2)
ActiveSheet.Range("$A$1:$B$16475").RemoveDuplicates Columns:=Array(1, 2), _
Header:=xlYes
End Function
Sub demo4()
Dim myArray
myArray = Range("A1:C3")
Stop
End Sub