VBA向下复制同一内容，要和源内容行高列宽相等

你可以使用以下的VBA代码来实现向下复制同一内容，并保持复制后的行高和列宽与源内容相等：

Sub CopyDownWithFormatting()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 设置源范围为选定的单元格
    Set sourceRange = Selection
    
    ' 设置目标范围为源范围下方的相同大小的区域
    Set destinationRange = Range(sourceRange.Offset(1, 0).Address, sourceRange.Offset(sourceRange.Rows.Count, sourceRange.Columns.Count).Address)
    
    ' 复制源范围的值和格式到目标范围
    sourceRange.Copy
    destinationRange.PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    
    ' 调整目标范围的行高和列宽与源范围相等
    destinationRange.RowHeight = sourceRange.RowHeight
    destinationRange.ColumnWidth = sourceRange.ColumnWidth
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
End Sub

你可以选择要复制的单元格，然后运行上述代码，它将复制选定单元格下方的相同大小的区域，并确保复制后的行高和列宽与源内容相等。请注意，代码中使用了剪贴板来进行复制和粘贴操作。