Question

EXCEL VBA只输出为文本

只将A38：M1038数据导出为文本格式（文本命为“全数据”）
导出路径与文件同位置

Answer 1

Sub s()
    Dim rg As Range
    Set rg = [a39:j1308]
    arr = rg
    pt = ThisWorkbook.Path & "\全数据.txt"
    rg.ClearContents
    For i = 1 To 10
        k = 0
        For j = 1 To 1270
        If arr(j, i) <> "" Then
            k = k + 1
            Cells(k + 38, i) = arr(j, i)
        End If
        Next
        Cells(38, i) = i - 1 & "共" & k & "个"
        c = c + k
    Next
    [m38] = "全共" & c & "个"
    Open pt For Output As #1
    Print #1, Join(Application.Transpose(Application.Transpose([a38:m38])), Chr(9))
    For i = 39 To 1308
        Print #1, Join(Application.Transpose(Application.Transpose(Cells(i, 1).Resize(1, 10))), Chr(9))
    Next
    Close #1
End Sub

Answer 2

Sub CommandButton1_Click()

Open "D:\new.txt" For Output As #1
Print #1, Right(Sheets(1).Cells(1, 1).Value, 2)
Close #1

End Sub