将单元格内容从同一工作表中的一列复制到另一列---宏？

Question

我在 E 列中有帐号，并且需要将这些帐号复制到包含值的任何单元格的 H 列中。

最终结果将是 E1 = H1 依此类推，直到所有列 E 单元格都被复制到列 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