用vba写一段复制一行为多行的代码

以下是用 VBA 复制一行为多行的代码示例：

Sub CopyRowAsMultipleRows()
    Dim copyRange As Range
    Dim pasteRange As Range
    Dim copyData() As Variant
    Dim i As Long
    Dim numRows As Long
    
    ' 设置复制范围和粘贴范围
    Set copyRange = Range("A1:A1")
    Set pasteRange = Range("A2:A4")
    
    ' 将复制范围的数据拷贝到数组中
    copyData = copyRange.Value
    
    ' 获取数据行数
    numRows = UBound(copyData, 1)
    
    ' 将数据拷贝到粘贴范围中
    For i = 1 To numRows
        pasteRange.Cells(i, 1).Value = copyData(1, 1)
    Next i
End Sub

以上代码中，我们首先定义了复制范围和粘贴范围，然后将复制范围的数据拷贝到数组中，接着获取数据行数，最后将数据拷贝到粘贴范围中。在这个示例中，我们将复制范围中的单元格 A1 的值复制到了粘贴范围中的单元格 A2、A3、A4 中。

相关问题

用VBA写一个一行转多行数据

您好，下面是将一行数据转换为多行数据的VBA代码：

Sub OneRowToMultiRows()

    Dim ws As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lastColumn As Long
    Dim i As Long, j As Long, k As Long
    
    Set ws = ActiveSheet
    Set sourceRange = Selection
    Set targetRange = sourceRange.Offset(sourceRange.Rows.Count, 0).Resize(1, 1)
    lastColumn = sourceRange.Columns.Count
    
    For i = 1 To sourceRange.Rows.Count
        For j = 1 To lastColumn
            If sourceRange.Cells(i, j) <> "" Then
                targetRange.Offset(k, 0).Value = sourceRange.Cells(i, j)
                k = k + 1
            End If
        Next j
    Next i
    
    sourceRange.ClearContents
    targetRange.Resize(k, 1).Select
    
End Sub

您可以先选择需要转换的一行数据，然后运行以上代码。它将会把一行数据中的非空单元格转换为多行数据，并将转换后的数据显示在原数据下方。转换后的数据将会被选中，原数据也会被清除。希望能对您有所帮助。

用VBA写一段入库保存的代码

以下是一个简单的 VBA 代码示例，用于将 Excel 表格中的数据保存到 Access 数据库中：

Sub SaveToAccess()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer, j As Integer
    
    ' 打开 Access 数据库
    Set db = OpenDatabase("C:\Users\UserName\Documents\Database.accdb")
    
    ' 打开表格
    Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
    
    ' 遍历 Excel 表格中的数据
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        ' 添加一条新记录
        rs.AddNew
        
        ' 将数据保存到 Access 数据库中
        For j = 1 To 3
            rs(j - 1) = Cells(i, j)
        Next j
        
        ' 保存记录
        rs.Update
    Next i
    
    ' 关闭记录集和数据库
    rs.Close
    db.Close
    
    ' 释放对象
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "数据已成功保存到 Access 数据库中。"
End Sub

以上代码假设你要将 Excel 表格中的第 1 列至第 3 列的数据保存到名为 `Table1` 的 Access 数据库表格中。你需要将代码中的文件路径和表格名字修改为你自己的。