VBA&CSS｜中英文交錯排版調整為為並排排版

如有下麵的中英文是交錯排版的：

需要調整為並排排版， 效果如下：

首先將交錯排版的文本複製到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(""

Next

Range("F1:F" & (RowN / 2)).Select

End Sub

運行VBA代碼後， Excel資料效果如下：

將F列的資料複製到html文檔， 並編寫CSS代碼，

CSS代碼細節請見：

CSS｜div+p實現雙語閱讀並排顯示效果

－End－