返回列表 上一主題 發帖

列的複製/刪除與匯入

列的複製/刪除與匯入

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

回復 1# hugh0620


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

TOP

[版主管理留言]
  • Hsieh(2010-11-27 00:23): 檔名勿使用特殊符號

本帖最後由 hugh0620 於 2010-11-26 13:02 編輯

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

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

TOP

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

TOP

回復 4# GBKEE


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

TOP

  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
複製代碼

TOP

忘了還有刪除:
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

TOP

回復 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
複製代碼

TOP

回復 7# oobird


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

TOP

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

TOP

        靜思自在 : 人要自愛,才能愛普天下的人。
返回列表 上一主題