請求高手...有方法能快速作嗎?

本帖最後由卡嘉塔於 2014-2-22 14:48 編輯

A列是主體不能刪除的
然後地點跟電話欄位空白的話
則在B C 抓取資料 (重複名稱的)
B 為優先其次是C
(A B C那一欄不能砍! 就是最左邊的那個)
(沒有BC列的話就直接保留原位置)

請問有方法快速作嗎? ...因為有數萬筆資料...作到有點快哭了....:'(

樓主熱帖

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

10^#

發表於 2014-2-24 13:02 | 只看該作者

本帖最後由 yen956 於 2014-2-24 13:12 編輯

回復 9# 卡嘉塔
將8F 的刪除重覆列.7z 抓下來,
打開 VBA 再修改.

Private Sub CommandButton1_Click()
Dim i As Integer
Dim strB, strC As Range
'
'先將資料表按升冪排序, 主要鍵→名稱(C欄), 次要鍵→類別(A欄)； Range("A1:E21")是排序範圍
[A1].Resize([A1].End(xlDown).Row, [A1].End(xlToRight).Column).Sort _
Key1:=Range("C2"), Order1:=xlAscending, _
Key2:=Range("A2"), Order2:=xlAscending, _
Header:=xlYes
For i = [C2].End(xlDown).Row To 2 Step -1
Set strB = Cells(i - 1, 3)
Set strC = Cells(i, 3)
If strC.Value = strB.Value Then
'保留D欄資
If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
strB.Offset(0, 1) = strC.Offset(0, 1)
End If
'保留E欄資
If strB.Offset(0, 2).Value = "" And strC.Offset(0, 2).Value <> "" Then
strB.Offset(0, 2).Value = strC.Offset(0, 2).Value
End If
'
'複製上列VBA, 再修再參數即可
'
strC.EntireRow.Delete
End If
Next
End Sub

複製代碼

TOP

卡嘉塔

小學生 Rank: 1

帖子: 11
主題: 4
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
性別: 女
註冊時間: 2014-2-22
最後登錄: 2014-5-2

9^#

發表於 2014-2-23 16:32 | 只看該作者

真的很感謝你
不過......想在問一下
假如需要填的資料不只兩筆而是五六筆的話要怎麼更改?
比如說這個

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

8^#

發表於 2014-2-23 10:31 | 只看該作者

本帖最後由 yen956 於 2014-2-23 10:32 編輯

回復 7# 卡嘉塔
1. 回6f, 抱歉, 我的是 2003, 不清楚那個按鈕的作用!
2. 回7f, 那是VBA, 配合 CommandButton1 用的,
3. 建議下次 pos 圖時, 連【欄名】及【列號】一起 pos 出來,
大家比較容易看得懂.
附上檔案(已把【序號】列入了), 請參考看看.

刪除重覆列.7z
http://www.mediafire.com/download/whhfyklg45t6yu1/%E5%88%AA%E9%99%A4%E9%87%8D%E8%A6%86%E5%88%97.7z

TOP

卡嘉塔

小學生 Rank: 1

帖子: 11
主題: 4
精華: 0
積分: 15
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
性別: 女
註冊時間: 2014-2-22
最後登錄: 2014-5-2

7^#

發表於 2014-2-22 21:44 | 只看該作者

那個抱歉
請問那是 ? 要怎麼用?

Private Sub CommandButton1_Click()
Dim i As Integer
Dim strB, strC As Range
For i = [B2].End(xlDown).Row To 2 Step -1
   Set strB = Cells(i - 1, 2)
   Set strC = Cells(i, 2)
   If strC.Value = strB.Value Then
         If strB.Offset(0, 1) = "" And strC.Offset(0, 1) <> "" Then
            strB.Offset(0, 1) = strC.Offset(0, 1)
         End If
         If strB.Offset(0, 2).Value = "" And strC.Offset(0, 2).Value <> "" Then
            strB.Offset(0, 2).Value = strC.Offset(0, 2).Value
         End If
         strC.EntireRow.Delete
   End If
Next
End Sub

TOP

卡嘉塔