Summary: MT4的“保存为详细户口结单”导出功能有个老毛病——每笔交易数据会错位成两行，难以直接分析。本文分享一个Excel VBA宏方案，自动合并错位行，让历史交易记录变成规整的单行表格。




跟你们说个事儿，可能很多人都遇到过，但一直没找到好办法解决。就是MT4里那个“保存为详细户口结单”的功能，你点一下，以为能导出一份整整齐齐的交易记录，结果打开一看——每笔交易分成两行，第二行的订单号、注释什么的还歪到一边去，跟第一行的数据根本对不上。

我第一次想好好分析一下自己半年来的交易记录时，就被这个坑惨了。手动去整理？四百多笔交易，复制粘贴到手抽筋，还容易贴错位。后来我在网上翻了不少帖子，发现这是个全世界MT4用户都在吐槽的通用问题，但官方一直没修。

有人说去买个付费脚本，有人说用Python处理，但大多数交易员压根不想折腾这些。我找到一个相对省事的办法——一个Excel的VBA宏，用起来其实不复杂，设置一次，以后就一直能用。

第一步：先把数据弄出来

在MT4的“账户历史”标签里，右键选“自定义时段”把你要导出的时间范围定好，再右键点“保存为详细户口结单”，保存成一个HTML文件。用浏览器打开这个HTML，全选（Ctrl+A）复制内容，粘贴到一个空白的Excel表格里。这时候你就能看到那个经典的两行错位问题了。

第二步：做一个“合并神器”

新建一个空白的Excel工作簿。点 文件 > 选项 > 自定义功能区，在右侧主选项卡里把“开发工具”勾上。

切换到“开发工具”选项卡，点“Visual Basic”（或者直接按 Alt+F11）。在弹出的窗口左侧，右键点击 VBAProject，选 插入 > 模块，会出来一个空白编辑区。

把下面这段代码完整复制进去。这个思路是我从一个技术论坛上看到的，很多人实测有效：

``vba
Sub MergeMT4Statement_Ultimate()
Dim ws As Worksheet
Dim LastRow As Long, LastCol As Long
Dim i As Long, j As Long, TargetCol As Long
Dim MergedCellWarning As Boolean

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error GoTo ErrHandler

Set ws = ActiveSheet
MergedCellWarning = False

If ws.UsedRange.MergeCells Then
MsgBox "警告：发现合并单元格，建议取消合并后再运行。", vbExclamation
MergedCellWarning = True
End If

LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

For i = LastRow To 2 Step -1
If Len(Trim(ws.Cells(i, 1).Value)) = 0 Then
TargetCol = ws.Cells(i - 1, ws.Columns.Count).End(xlToLeft).Column + 1

For j = 1 To LastCol
If Not IsEmpty(ws.Cells(i, j)) Then
ws.Cells(i - 1, TargetCol).Value = ws.Cells(i, j).Value
TargetCol = TargetCol + 1
End If
Next j
ws.Rows(i).Interior.Color = RGB(255, 255, 0)
End If
Next i

For i = LastRow To 2 Step -1
If ws.Rows(i).Interior.Color = RGB(255, 255, 0) Then
ws.Rows(i).Delete
End If
Next i

ws.UsedRange.Columns.AutoFit

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

MsgBox "合并完成！共处理 " & LastRow & " 行数据。", vbInformation
Exit Sub

ErrHandler:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "第 " & i & " 行出错：" & Err.Description, vbCritical
End Sub
`

关掉VBA编辑器，把这个文件另存为 Excel启用宏的工作簿 (*.xlsm)，名字随便起一个，比如“MT4整理工具.xlsm”。

第三步：一键合并

把刚才粘贴了MT4数据的那个工作表切回来，按 Alt+F8，选中“MergeMT4Statement_Ultimate”，点“执行”。

这个宏会从最后一行开始往上找，把每一笔交易的第二行数据（也就是错位的那部分）全部拼到第一行的末尾，然后再把空出来的第二行删掉。跑完之后，每笔交易就是规规矩矩的一行数据了。

一个小细节

我发现如果导出的报表里带有合并单元格，宏运行的时候可能会出一些小状况。我的习惯是，在运行宏之前，先把粘贴进来的数据全选，手动点一下“取消合并单元格”，这样最稳，不会报错。

这个工具做好之后，不用每次都重建。以后需要导出历史记录时，直接用那个MT4整理工具.xlsm`打开，把新数据粘贴进去，再点一下宏按钮，两秒钟数据就规整好了。对于经常需要做交易复盘的人来说，这个办法能省下不少时间。

参考来源： Misssoon. "MT4账户历史右键保存为详细户口结单分两行显示的解决方案." misssoon.com, 2025 。

本文首发于FXEAR.com，原创内容，未经授权禁止转载。