2

我在使用 VBA 子例程时遇到了一些困难，该子例程获取在 Excel 工作簿的第一张工作表上输入的信息 - “条目”，并将其粘贴到同一工作簿 - “数据库”内的单独工作表中。我需要的是将数据添加到数据库的下一个空行。

我很欣赏这是一个很常见的问题，但我一直在谷歌上寻找今天早上最好的部分，但不能完全理解！到目前为止我管理的代码将复制数据，但总是会覆盖第一行：

Sub CopyDataToDatabase()

Application.ScreenUpdating = False

Dim r As Range
Set r = Sheets("Entry").Range("B6:M6")
For Each cell In r
    If IsEmpty(cell) Then
        MsgBox ("Error - all boxes must be filled in!")
        Cancel = True
        Exit Sub
        Exit For
    End If
Next

Dim NextRow As Range
Set NextRow = Sheets("Database").Range("A2:L2").End(xlUp).Offset(1, 0)
'  Set NextRow = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Entry").Range("B6:M6").Copy
NextRow.PasteSpecial (xlValues)

MsgBox ("Data added successfully!")

Sheets("Entry").Range("B6:M6").ClearContents

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Set NextRow 的注释是我尝试过的另一种方法，它不起作用（错误是“需要对象”）。

感谢您提供任何帮助，如果您能解释一下，那就更是如此 - 因为我对 VBA 有点陌生！

提前致谢。

4

2 回答 2

1

您注释掉的行几乎是正确的方法。尝试这个

Set NextRow = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1,0)
于 2013-04-17T09:40:58.920 回答
0

有 Sheet property UsedRange，但根据我的经验，它很容易出错。我总是这样做的方式是遍历行以找到第一个空行。

Dim iRow as integer
iRow = 1
Dim ws as Worksheet
Set ws = Worksheets("Database")
Do While ws.Cells(iRow, 1) <> ""
    iRow = iRow + 1
Loop

一般来说，在编写 VBA 代码时，我会尽量避免模拟我作为用户使用 Excel 所做的事情（例如使用Selection对象或模拟按键）。

于 2013-04-17T09:36:22.817 回答