VBA将Excel的A1到N14的数据在保持行高和列宽下向下复制多次

您可以使用VBA中的循环来实现这个需求。以下是一个示例代码：

Sub 复制数据()
    Dim ws As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim i As Integer
    
    ' 设置源工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set sourceRange = ws.Range("A1:N14")
    
    ' 设置目标工作表和范围
    Set targetRange = ws.Range("A15:N28")
    
    ' 复制数据
    For i = 1 To 5 ' 这里假设要复制5次
        sourceRange.Copy targetRange
        Set targetRange = targetRange.Offset(14) ' 下移目标范围的位置
    Next i
End Sub

请确保将代码中的"Sheet1"替换为您要操作的实际工作表名称。此代码将A1:N14范围的数据复制到A15:N28范围，并且会在保持行高和列宽的前提下向下复制多次。您可以根据需要修改循环次数和目标范围的位置。

相关问题

这个代码没有保持行高和列宽

非常抱歉，我之前的回答有误。确实，直接复制并粘贴范围不会保留行高和列宽。您可以使用以下代码来实现保持行高和列宽的复制：

Sub 复制数据()
    Dim ws As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim i As Integer
    
    ' 设置源工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set sourceRange = ws.Range("A1:N14")
    
    ' 设置目标工作表和范围
    Set targetRange = ws.Range("A15:N28")
    
    ' 复制数据
    For i = 1 To 5 ' 这里假设要复制5次
        CopyRangeWithFormatting sourceRange, targetRange
        Set targetRange = targetRange.Offset(14) ' 下移目标范围的位置
    Next i
End Sub

Sub CopyRangeWithFormatting(sourceRange As Range, targetRange As Range)
    ' 复制数值
    sourceRange.Copy
    targetRange.PasteSpecial Paste:=xlPasteValues
    
    ' 复制行高和列宽
    sourceRange.Rows.RowHeight = targetRange.Rows.RowHeight
    sourceRange.Columns.ColumnWidth = targetRange.Columns.ColumnWidth
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub

在这个示例代码中，我添加了一个名为`CopyRangeWithFormatting`的新子过程，用于复制源范围的数值，并将行高

如果finn-b-N14_FEMALEINFERT是一个在线IEU数据，如何使用R代码的方式把他保存到本地

如果你有一个名为"finn-b-N14_FEMALEINFERT"的数据集，它似乎是一个在线的IEU（某种数据集或数据库）数据，但在R语言中保存这种数据通常需要通过网络下载然后存储。这里是一个简单的步骤指导：

1. 首先，确保你已经安装了`readr`包，用于读取各种文件格式，包括CSV、JSON等。如果没有，可以运行`install.packages("readr")`。

2. 使用`readr::read_csv()`函数尝试加载数据，假设URL格式如下：

   library(readr)
   url <- "http://example.com/finn-b-N14_FEMALEINFERT.csv"  # 请替换为你实际的数据源URL
   data <- read_csv(url)

3. 确认数据已成功加载后，你可以使用`write_csv()`函数将其保存到本地。例如，如果你想保存为CSV文件，可以在当前工作目录下创建一个同名文件：

   write_csv(data, "finn-b-N14_FEMALEINFERT.csv")

4. 如果数据不是CSV格式，比如JSON，可以使用`jsonlite::from_url()`读取JSON，`write_json()`保存：

   library(jsonlite)
   data_json <- from_url(url)
   write_json(data_json, "finn-b-N14_FEMALEINFERT.json")

请注意，上述步骤依赖于数据的实际格式和可用的API访问。如果数据需要登录或其他特定权限，你可能还需要处理相关的认证问题。