如何以vba編寫程式將A欄不順序並重覆的資料各抽一個出來順序存放於B欄 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何以vba編寫程式將A欄不順序並重覆的資料各抽一個出來順序存放於B欄

返回列表下一主題上一主題發帖

[發問] 如何以vba編寫程式將A欄不順序並重覆的資料各抽一個出來順序存放於B欄

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

1^# 跳轉到 »

發表於 2015-9-29 17:49 | 顯示全部帖子

新版就使用"資料--移除重複"然後針對該欄做排序就可以
在B欄都輸入1然後用合併彙算功能也可以辦到
插入樞紐分析表也可以整理

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

2^#

發表於 2015-9-29 18:09 | 顯示全部帖子

本帖最後由 koo 於 2015-9-29 18:11 編輯

小的只會初淺的寫法
複製到B欄後計算超過1個就砍掉
最後請做B欄排序就可以

Sub test()
Columns("A:A").Copy Cells(1, 2)
For i = [B65536].End(xlUp).Row To 1 Step -1
Rx = Application.CountIf([B:B], Range("B" & i))
If Rx > 1 Then Cells(i, 2).Delete Shift:=xlUp
Next
End Sub

複製代碼

靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。

返回列表下一主題上一主題