求Excel VBA代码：复制A6:AY区域至数据库首空行底部

嘿，这有一段能完美实现你需求的VBA代码，我还加了详细注释和使用说明，你可以直接拿去用：

Sub CopyToDatabase()
    Dim sourceRange As Range
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim targetRange As Range
    
    ' 1. 设置要复制的源区域（A6:AY），替换成你的源工作表名称
    Set sourceRange = ThisWorkbook.Sheets("源工作表名称").Range("A6:AY")
    
    ' 2. 设置数据库所在的工作表，替换成你的数据库工作表名称
    Set targetSheet = ThisWorkbook.Sheets("数据库工作表")
    
    ' 3. 找到数据库区域的最后一行（默认以A列判断，可根据实际修改列标识）
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 4. 指定粘贴的起始位置（首个空行的A列）
    Set targetRange = targetSheet.Cells(lastRow, "A")
    
    ' 5. 复制并粘贴（默认复制值+格式，如需仅复制值，看下方注释）
    sourceRange.Copy targetRange
    ' 如果只需要复制值，替换上面这行为：
    ' sourceRange.Copy
    ' targetRange.PasteSpecial Paste:=xlPasteValues
    
    ' 清除剪贴板，避免残留的复制状态
    Application.CutCopyMode = False
    
    ' 可选：弹出成功提示
    MsgBox "数据已成功粘贴到数据库区域！", vbInformation
End Sub

使用说明： #

• 替换代码里的"源工作表名称"和"数据库工作表"为你实际的工作表名称，如果源区域和数据库在同一张表里，直接用同一个名称就行。
• 如果你的数据库区域不是从A列开始的，把"A"改成对应列的字母（比如数据库起始列是B，就改成"B"）。
• 如果你只需要复制单元格的值而不需要格式，就注释掉sourceRange.Copy targetRange，取消注释下面两行的粘贴值代码。

如何运行： #

1. 打开Excel，按下Alt + F11打开VBA编辑器。
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」。
3. 把上面的代码粘贴到模块窗口里。
4. 按下F5运行代码，或者回到Excel，添加一个按钮并绑定这个宏。

内容的提问来源于stack exchange，提问作者Carolina Visnadi