如有下面的中英文是交错排版的：
需要调整为并排排版，效果如下：
首先将交错排版的文本复制到Excel，如下：
编写VBA代码，将英文、中文分别放到单独的一列，并添加HTML代码，代码如下：
Sub 中英文并排显示()
Dim RowN As Long
Dim i As Long
Dim j As Long
j = 0
RowN = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To RowN Step 1
j = i * 2 - 1
ActiveSheet.Range("D" & i).Value = Range("A" & j).Value
ActiveSheet.Range("E" & i).Value = Range("A" & i * 2).Value
Next
For i = 1 To RowN / 2 Step 1
ActiveSheet.Range("F" & i).FormulaR1C1 = _
"=CONCATENATE(""<div class='layout'><p>"",RC[-2],""</p>"",""<p>"",RC[-1],""</p>"",""</div>"")"
Next
Range("F1:F" & (RowN / 2)).Select
End Sub
运行VBA代码后，Excel数据效果如下：
将F列的数据复制到html文档，并编写CSS代码，即可达到上述并排显示中英文的效果。
CSS代码细节请见：
－End－
