VBA初試 合併

今天遇到乙個任務，要把excel中的相同行合併；沒有找到直接的辦法（vlookup大概能做），試了試vba挺好用

資料結構

第一、二列是描述字段，第二列元素唯一；第三到第八列是標誌位

任務合併描述字段相同的行，描述字段不變，標誌位合併

方法：1.錄製空巨集（命名為test1）,檢視巨集進入vba編輯器模式

2.**

sub

test1()
dim i as
integer
dim j as
integer
i = 2 '跳過標題行
dowhile activesheet.cells(i, 2).value <> ""
if activesheet.cells(i, 2).value = activesheet.cells(i + 1, 2).value then
for j = 3to8
step
1activesheet.cells(i, j).value = activesheet.cells(i, j).value & activesheet.cells(i + 1
, j).value
next
activesheet.rows(i + 1
).delete '迴圈刪除
else
i = i + 1
endif
loop
end sub

3.在所需工作表（即activesheet）執行巨集

4.儲存為.xlsm檔案並啟用巨集

vba合併多個Excel文件

引用自 僅適用於每個sheet的第一行是資料頭，資料從第二行開始。sub 合併工作簿 dim fileopen dim x as integer remexcel 97 2003 工作簿 xls xls multiselect true,title 請選擇需要合併的工作簿 x 1 if typena...

VBA 合併多個工作簿

合併多個工作薄，並以工作薄的名字給sheet表命名 每個工作薄只有一張表 subtest dimstr asstring dim wb as workbook str dir c users administrator desktop 6.3 6.7 xls for i 1 to100 set wb...

Word插入檔案 VBA 合併 檔案

1 word中有的時候，需要合併多個檔案。word本身提供了非常簡單的方法。只需使用選單 插入 檔案 命令即可完成該操作。vba selection.range.insertfile afilename,false,false,false 2 可是會遇到一點問題 插入的檔案，為啥不頁首資訊丟失了。如...