Question

你好，请问可以实现EXCEL导出指定列到TXT吗？如导出A列C列，或A B D列。如可随意设置倒指定列更好，谢谢

Answer 1

请查收代码。可以输入需要的列标，中间用英文逗号隔开。

Sub st()
Dim dInput, s As String
dInput = Application.InputBox(Prompt:="请输入需导出的列号，用英文逗号隔开：", Type:=2)
If dInput <> False Then
    s = dInput
    Dim rg As Object
    Dim Arr
    Arr = Split(s, ",")
    Dim Strtemp
    Dim i, rc As Long
    rc = Range("A" & Rows.Count).End(xlUp).Row
    
    Strtemp = ""
    For i = 1 To rc
        For j = 0 To UBound(Arr)
            If j <> UBound(Arr) Then
                Strtemp = Strtemp & Range(Arr(j) & i) & vbTab
            Else
                Strtemp = Strtemp & Range(Arr(j) & i) & vbCrLf
            End If
        Next
    Next
    Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt" For Output As #1
    Print #1, Strtemp
    Close #1
End If
End Sub

Answer 2

先复制指定列到新EXCEL表中，然后再复制一次，在记事本中粘贴，就可以保存为TXT文件了。

Answer 3

我的方法是,原来的表中选择导出的范围,拷贝,新建工作表,选择性粘贴,只数值,删除不用的内容,另存为TXT文件

追问

谢谢，不过这样全手工化复制黏贴，工作量太大了，如可按一键完成导出指定列，并自动生成TXT

追答

这样啊,抱歉,整不了啦

Answer 4