复制并创建一个带有粘贴 VBA Excel 的新行

Question

我想在一张纸上的一个确切位置得到一条线并将此信息传输到另一条线，但在这一行中，我需要在另一条线上方创建这条新线并放置此信息。

代码如下：

Public Function getInformationInSheet()

    Dim Hostname As String
    Hostname = ActiveCell.Offset(0, -9).Value
    If MsgBox("Found a equal Mac, it's like " & Hostname & " do you want change this computer information? ", vbYesNo + vbCritical, "Found a equal Mac Address") = vbYes Then
        If ActiveCell.Offset(0, -14).Value <> cmbDepartment.Value Then
            'Rows(ActiveCell.Rows).Cut Rows(findExactlyPosictionDepartment)
            range(ActiveCell.Address).Select
            Selection.Cut
            Cells(range(ActiveCell.Address), 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        End If
    End If



End Function

Public Function findExactlyPosictionDepartment() As String

    findExactlyPosiction = ""
    Worksheets("Full Control").Activate
    range("A3").Select
    Do While ActiveCell.Value <> ""
        If ActiveCell.Value = cmbDepartment Then
            findExactlyPosictionDepartment = ActiveCell.Rows
            Exit Function
        End If
        ActiveCell.Offset(1, 0).Select
    Loop

End Function

但是当我运行这段代码时，我在这一行遇到了问题：

Cells(range(ActiveCell.Address), 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

消息是：键入 misatch

Answer 1

您必须为Cells属性调用指定行索引，而不是Range class 的实例：

Cells(range(ActiveCell.Address), 1)

和

Cells(1, 1)