列的複製／刪除與匯入

hugh0620

Dear 大大們

     小弟遇到列的複雜/刪除與匯入上的問題
     詳述如下:
        我需要將
     1. Sheet1中有疑問的資料轉到sheet2中
     2. 將Sheet1中有疑問的資料刪除  (因Sheet2的資料澄清後,需要在匯回Sheet1中,會避免資料重覆的情況下,需要先行刪除)
       3.Sheet2的資料澄清後,需要在匯回Sheet1中  (還沒有寫)
     我在VBA寫法
    1.將Sheet1中有疑問的資料轉到sheet2中
     x = 0
       K = 0
       Do Until Sheet1.Cells(7 + x, 12) = ""
          If Sheet1.Cells(7 + x, 6) <> "" Then
             Sheet1.Rows(7 + x).Copy
             Sheet2.Select
             Sheet2.Rows(7 + k).Select
              ActiveSheet.Paste
              k = k + 1
           End If
        2. 將Sheet1中有疑問的資料刪除
      x = 0
         Do Until Sheet1.Cells(7 + x, 12) = ""
             For J = 0 To x
                If Sheet1.Cells(7 + J, 6) <> "" Then
                     Sheet1.Rows(7 + J).Delete
                End If
           Next J
             x = x + 1
          Loop
        可是這樣的寫法在執行上比較慢,請問大大是否有較好的方法
      另外第3.將資料匯回sheet1也有點卡住,盼能夠有提點一下
      這是我的寫法,不過我要貼的是從空白的地方接資料,但是執行後,檢查資料,卻沒有成功
      x = 0
         k = 0
         Do Until Sheet2.Cells(7 + x, 6) = ""
              If Sheet1.Cells(7 + k, 12) = "" Then
                 Sheet2.Rows(7 + x).Copy
                 Sheet1.Select
                 Sheet1.Rows(7 + k).Select
                 ActiveSheet.Paste
                  x = x + 1
               End If
               k = k + 1
         Loop

Hsieh

回復 1# hugh0620


    你的迴圈邏輯有點怪異，這樣的刪除列應該是不完整的
上傳您的檔案，解釋你所謂有疑問的資料條件

hugh0620

回復 2# Hsieh 列的複製&刪除與匯入.rar (55.79 KB)

下載次數: 25

2010-11-26 13:01

[ 大大 已經將附件放上sheet1中的F欄位就是資料有誤需要澄清的部份

GBKEE

回復 3# hugh0620
上傳檔案有問題打不開

hugh0620

回復 4# GBKEE


    有測試過可以打開~
    是打不開還是無法下載呢????

oobird

1. Private Sub CommandButton1_Click()  '匯出與刪除
   
2. With Sheet1
   
3. .Range("f6:f" & .[g65536].End(3).Row).SpecialCells(2).EntireRow.Copy Sheet2.[a7]
   
4. End With
   
5. End Sub

複製代碼

oobird

忘了還有刪除：
Private Sub CommandButton1_Click()  '匯出與刪除
With Sheet1
.Range("f6:f" & .[g65536].End(3).Row).SpecialCells(2).EntireRow.Copy Sheet2.[a7]
.Range("f6:f" & .[g65536].End(3).Row).SpecialCells(2).EntireRow.delete
End With
End Sub

GBKEE

回復 5# hugh0620
你上傳檔案用特殊字元 造成下載後PC無法辨識檔案型態,無法自動用RAR檔案型態打開.
經開啟檔案時,用手動選擇RAR檔案型態開啟已解決.

1. Private Sub CommandButton1_Click()  '匯出與刪除
   
2.     With Sheet1.Range("f6").CurrentRegion.Columns(6).Offset(2)
   
3.         On Error Resume Next
   
4.         With .SpecialCells(2).EntireRow
   
5.                 .Copy Sheet2.Range("A" & Sheet2.Range("F" & Rows.Count).End(xlUp).Row).Offset(1)
   
6.                 .Delete
   
7.         End With
   
8.     End With
   
9. End Sub

複製代碼

hugh0620

回復 7# oobird


    版主~..  謝謝您的回覆唷~ 不過小地在測試時,有點小小的問題存在~
                因如果使用者不小心再點到一次的話~ 該程式碼就會產生執行的錯誤....

oobird

我是很懶的人，總用懶方法處理事情。
你最好用GB版的，他的才是正統方式！