#新建巨集執行下列**，是合併b列的
sub test()
dim rng as range, dic as object, arr, n&
set dic = createobject("scripting.dictionary") '建立字典專案
'迴圈a1所在列要處理的資料區 for each rng in range("a1", range("a1").end(xldown))
for each rng in range("a1", range("a1").end(xltoright)) '迴圈a1所在行要處理的資料區
if rng <> "" then '如果單元格不為空,則
if dic.exists(rng.value) then '如果已存在該單元格內容對應的字典專案,則將當前單元格與已存在內容進行組合
set dic(rng.value) = union(dic(rng.value), rng)
else '否則進行新增
set dic(rng.value) = rng
end if
end if
next rng
if dic.count > 0 then '如果字典專案數大於0,則
arr = dic.keys '將字典的key賦值給陣列
for n = lbound(arr) to ubound(arr) '迴圈陣列各項(即字典的keys集)
for each rng in dic(arr(n)).areas '迴圈字典中對應項的item項所儲存的單元格區域的各個區域範圍
if rng.cells.count > 1 then rng.merge '如果範圍中不止乙個單元格,則該範圍進行合併
next rng
next n
end if
set dic = nothing '清空字典專案
end sub
#補充資料
end 屬性
參閱應用於示例特性返回乙個 range 物件，該物件代表包含源區域的區域尾端的單元格。等同於按鍵 end+ 向上鍵、end+ 向下鍵、end+ 向左鍵或 end+ 向右鍵。range 物件，唯讀。
expression.end(direction)
expression 必需。 該表示式返回「應用於」列表中的物件之一。
direction xldirection 型別，必需。所要移動的方向。
xldirection 可為 xldirection 常量之一。
xldown
xltoright
xltoleft
xlup
示例本示例選定包含單元格 b4 的區域中 b 列頂端的單元格。
range("b4").end(xlup).select
本示例選定包含單元格 b4 的區域中第 4 行尾端的單元格。
range("b4").end(xltoright).select
本示例將選定區域從單元格 b4 延伸至第四行最後乙個包含資料的單元格。
worksheets("sheet1").activate
range("b4", range("b4").end(xltoright)).select
EXCEL 合併兩列的內容
今天客戶給了乙個excel表，是他們近期的一些資料，要把這個excel中的資料匯入我們的資料庫。在處理的過程中，有個時間字段，在資料庫裡的格式是 yyyy mm dd hh mm ss 但是在客戶excel表中，日期和時間是分開的兩列 這就需要在excel中處理一下，把兩列拼成一列。如果是文字格式的...
將文字中內容以列形式填充入excel
文字內容，文字內容必需為有規律的間隔。2014 1 2 208 2014 1 3 208 2014 1 4 208 2014 1 5 208 2014 1 6 208 2014 1 7 208 2014 1 8 208 在excel中開啟剛才儲存的文字檔案，出現 文字匯入嚮導 3步驟之1 對話方塊，...
分列 將excel單元格的內容拆分為兩列
提要 處理excel資料時有時需要把單元格的內容拆分為兩列，可能方便外部軟體的鏈結，可能使資料顯示更明晰等等，有人說直接剪下加貼上不就可以了嗎，但是有時資料過多，這樣處理很不效率，網上搜尋的方法說插入某某函式可以實現，但是可能顯得比較複雜，其實excel軟體本身就帶有 分列 的功能。舉例 如exce...