將單元格內容從一列中複製到同一工作表中的另一列---宏？

Question

我有列E中的帳號，並且需要那些複製到列H中的任何包含值的單元格。

最終結果將是E1 = H1和以此類推，直到所有列E細胞已被複制到coulmn H.提前

謝謝！

Answer 1

Option Explicit 

Public Sub x() 

    Call copy_acct_nums("E", "H") 

End Sub 

Private Sub copy_acct_nums(copy_from_col, copy_to_col) 

    Application.ScreenUpdating = False 
    Dim i As Long 

    With ActiveWorkbook.ActiveSheet 

     For i = 1 To .UsedRange.Rows.Count Step 1 
      .Cells(i, copy_to_col).Value = .Cells(i, copy_from_col).Value 
     Next i 

    End With 

    Application.ScreenUpdating = True 

End Sub 

如果您有多個工作表需要應用此代碼，您可以將一個工作表參數添加到複製子例程。我會留給你：d

Answer 2

另一種選擇：

Sub copy() 

    numrows = Cells.SpecialCells(xlLastCell).Row 
    Range("E1:E" & numrows & "").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("H1") 

End Sub 

列可以在需要時也已通過了作爲變量。

Sub runCopy() 

    Call copy("E", "H") 

End Sub 

Sub copy(col1, col2) 

    numrows = Cells.SpecialCells(xlLastCell).Row 
    Range("" & col1 & "1:" & col1 & "" & numrows & "").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("" & col2 & "1") 

End Sub