Excel宏开发需求：TXT转XLSX并完成行/列格式处理

嘿，你已经搞定了宏的核心流程——选文件夹、导入TXT、保存文件，这部分做得很扎实！针对剩下的行和列格式化需求，我给你一套通用的VBA代码片段，完全不用碰PHI内容，你可以根据实际数据结构灵活调整参数。

一、移除不必要的行 #

常见的冗余行无非是顶部说明、底部汇总或者空行，我写了几种场景的代码，你按需启用：

Sub CleanUnwantedRows()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 默认导入的数据在当前活动表，你也可以指定具体工作表
    
    ' 1. 移除顶部指定行数（比如前3行是无关的说明文字）
    ws.Rows("1:3").Delete Shift:=xlUp
    
    ' 2. 批量移除所有空行
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    ' 倒序遍历避免漏删
    For i = lastRow To 1 Step -1
        If WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            ws.Rows(i).Delete Shift:=xlUp
        End If
    Next i
    
    ' 3. 移除包含特定关键词的行（比如"统计汇总"这类行，按需取消注释）
    ' For i = lastRow To 1 Step -1
    '     If InStr(ws.Cells(i, 1).Value, "统计汇总") > 0 Then
    '         ws.Rows(i).Delete Shift:=xlUp
    '     End If
    ' Next i
End Sub

二、列格式化（通用适配方案） #

因为没有具体数据结构，我列了几种高频使用的格式化操作，你可以组合修改：

Sub FormatColumns()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim lastRow As Long, lastCol As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 1. 自动适配列宽，避免内容被截断
    ws.Columns("1:" & lastCol).AutoFit
    
    ' 2. 设置特定列的数据格式（按需修改列号和格式）
    ws.Columns(2).NumberFormat = "yyyy-mm-dd" ' 第2列设为日期格式
    ws.Columns(3).NumberFormat = "0.00" ' 第3列设为保留2位小数的数值
    ws.Columns(4).NumberFormat = "@" ' 第4列设为文本（比如身份证号、医保号这类敏感字段）
    
    ' 3. 美化表头：加粗+居中
    ws.Rows(1).Font.Bold = True
    ws.Rows(1).HorizontalAlignment = xlCenter
    
    ' 4. 给数据区域添加细边框，方便阅读
    Dim dataRange As Range
    Set dataRange = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
    dataRange.Borders.LineStyle = xlContinuous
    dataRange.Borders.Weight = xlThin
End Sub

三、把格式化整合到现有宏里 #

你只需要在导入TXT完成后、保存文件之前，调用上面两个子过程就行，比如把这段代码插在你现有宏的对应位置：

' 假设你现有宏的核心流程是这样的，把新增的格式化代码插在中间
Sub ImportPHITextFiles()
    ' 1. 用户选择目标文件夹（你已经实现的代码）
    Dim folderPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择存储PHI文本文件的文件夹"
        If .Show = -1 Then
            folderPath = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    
    ' 2. 导入TXT到新建工作簿（你已经实现的代码）
    Dim wb As Workbook
    Set wb = Workbooks.Add
    ' ... 这里放你已有的导入TXT代码 ...
    
    ' 3. 新增：执行行清理和列格式化
    CleanUnwantedRows
    FormatColumns
    
    ' 4. 保存到源文件夹（你已经实现的代码）
    Dim savePath As String
    savePath = folderPath & "处理后的PHI数据.xlsx"
    wb.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
    wb.Close SaveChanges:=False
End Sub

小提示 #

• 因为没法接触到PHI数据，建议你先找一个和真实文件结构一致的无PHI测试文件调试代码，确保逻辑没问题再用在真实数据上。
• 如果有特殊的行需要移除（比如固定位置的注释行），直接调整CleanUnwantedRows里的判断条件就行。
• 敏感的PHI字段（比如身份证、手机号）一定要设为文本格式，避免Excel自动转成科学计数法或者丢失前导零。

内容的提问来源于stack exchange，提问作者DatabaseGangsta