復制並創建一個帶有粘貼 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)