利用Excel中vba代碼宏實現

原始數據：

自動生成后數據：

vba實現代碼：

Sub CombineColumns()Dim ws As WorksheetDim lastRowA As Long, lastRowB As Long, i As Long, j As LongDim MyIndex As IntegerDim strCombine As String, strColA As String, strColB As String, strColC As String, strColD As String'說明每遍歷一A次分子列其包含內容都是全部B原子列' ****************配置項開始****************' 設置分子數據源列strColA = "A" ' 此處對應A列名' 設置原子數據源列strColB = "B" ' 此處對B列名' 設置分子數據生成列strColC = "C" ' 此處對應C列名' 設置原子數據生成列strColD = "D" ' 此處對應D列名' 設置工作表Set ws = ThisWorkbook.Sheets("Sheet1") ' 重要更改為你的工作表名稱' ****************配置項結束****************' ****************程序開始****************' 具體執行代碼 找到A列和B列的最后一行lastRowA = ws.Cells(ws.Rows.Count, strColA).End(xlUp).RowlastRowB = ws.Cells(ws.Rows.Count, strColB).End(xlUp).RowMyIndex = 1' 遍歷A列For i = 1 To lastRowAstrCombine = "" ' 重置組合字符串' 遍歷B列For j = 1 To lastRowBws.Cells(MyIndex, strColC).Value = ws.Cells(i, strColA).Valuews.Cells(MyIndex, strColD).Value = ws.Cells(j, strColB).ValueMyIndex = MyIndex + 1Next jNext i
End Sub

使用方式：

1、首先，工具步驟“開發工具——VB編輯器”，打開WPS/Excel表格里的VB編輯器。

2、執行