Question

请尽可能使用我写过的宏的帮助。宏将一系列数据粘贴到活动的电子表格。然后我有一个输入框，允许用户在新选择中将选择输入到A列的第一行。我只需要选择粘贴他们输入的3行而不是一行（格式完整）。我希望这有意义并且乐于澄清任何事情。

感谢您给我的任何帮助。

以下代码：

Sub NewSection()

'adds a new section to the last row of the active spreadsheet'

    Application.ScreenUpdating = False
    Dim copySheet As Worksheet
    Dim pasteSheet As Worksheet

    Set copySheet = Worksheets("zDATA")
    Set pasteSheet = ActiveSheet


    copySheet.Range("ClientSection").Copy
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

'Text box for entering client name into the new section'
Dim ans As String, lr As Long
ans = InputBox("Enter Client Name", "Data Entry Form")
If ans = "" Then
    Exit Sub
Else
    lr = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & lr).Value = ans
End If

End Sub

Answer 1

Virtual David和Foxfire回答！

需要宏来自动填充＆＃34; x＆＃34;数据输入后的行

1 个答案: