Sub 按钮1_单击()
ar = Range("a1:f" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(ar, 1)
rr = ""
For y = 1 To UBound(ar, 2)
If ar(x, y) <> "" Then rr = rr & Format(ar(x, y), "00") & " "
Next
st = st & rr & vbCrLf
Next
fname = Application.GetSaveAsFilename("导出号码.txt")
If fname <> False Then
Open fname For Output As #1
Print #1, st
Close #1
End If