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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-2-22 14:45 | 顯示全部帖子

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

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

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

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

樓主熱帖

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

2^#

發表於 2014-2-22 19:51 | 顯示全部帖子

對!!沒錯!!真的很感謝你!

對不起還忘記加了另一個
b c 分類假如沒有a的話只有b和c的話不用del 保留下來
好像有點複雜頭好暈 = =

zxczxczxc.png (20.17 KB)

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

3^#

發表於 2014-2-22 19:59 | 顯示全部帖子

那個對不起我的超過3分鐘不能編輯訊息
我想請教一下那一個刪除重複列
是這個嘛因為找不到 0.0

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

4^#

發表於 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

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

5^#

發表於 2014-2-23 16:32 | 顯示全部帖子

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