从选定行中的单元格复制数据

Question

每次将信息放入H列时，我都会弹出一个用户表单。您输入一些信息，然后使用该信息填充表2。我已经把它设置为计算最后一行和所有内容。 点击Enter后，excel会选择您输入信息的H列中任何单元格下方的单元格。我需要在您输入H列信息的同一行中捕获A列和D列的单元格中的信息，并将其与用户表单信息一起放入表2中的一行。图片：

任何帮助都会很棒！

谢谢！

编辑：添加反馈代码。

添加了全局变量。

Public Range1 As Range Public Range2 As Range

和代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = "8" Then Set Range1 = Me.Cells(Target.Row, 1) Set Range2 = Me.Cells(Target.Row, 4) 'lot Set Range3 = Me.Cells(Target.Row, 8) 'qty used Reconcile.Show Else Exit Sub End If End Sub

Excel无法识别Me.Cells。它说，“找不到方法或数据成员”

Answer 1

前提是你已经挂钩Worksheet_Change() - 事件以显示userform（我认为你这样做，因为它显示“当有人在H列中输入信息时），你可以将值存储在变量中，如下所示：

为全局变量创建一个单独的模块：

Public Range1 as Range
Public Range2 as Range

接下来，在工作表中输入H列中的值：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 8
        Set Range1 = Me.Cells(Target.Row, 1)
        Set Range2 = Me.Cells(Target.Row, 2)
        UserForm1.Show 'Do the rest from there
    End If
End Sub

现在，如果脚本的其余部分是从用户窗体或其他任何地方执行的，那么您仍然可以通过Range1和Range2访问所述单元格中的所有信息。