VBA中复制粘贴时如何保持行高和列宽不变

dzy123

VBA中复制粘贴时如何保持行高和列宽不变，我不想整行和整列复制各位可有办法

dzy123

不能实现吗？各位大侠

蓝桥玄霜

用选择性粘贴－复制列宽；再用选择性粘贴－复制值或是其它

ilovepesx

在前台很容易的啊，用代码如何实现啊，特别是行高！

hjy151

我也很想知道,希望高手回答

liyub2005

Sheets("Sheet1").Rows("1: 32").Copy Sheets("Sheet2").Range("A1")
    Sheets("Sheet1").Columns("A:G").Copy Sheets("Sheet2").Range("A1")
先用行复制一片，再用列复制一片就可以了

乐乐2006201505

Sub test高宽一致()
  Dim r%, i%
  Dim lk, hg
  Dim ws As Worksheet
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  With Worksheets("物料跟踪")     '工作表可变化
    ReDim lk(1 To 9)
    For j = 1 To 9
      lk(j) = .Columns(j).ColumnWidth
    Next
    ReDim hg(1 To 3)
    For i = 1 To 3
      hg(i) = .Rows(i).RowHeight
    Next
   
    '自己所需代码
  
  End With
      Worksheets("物料跟踪").Range("a1:i2").Copy .Range("a1")
      
      For j = 1 To 9
        .Columns(j).ColumnWidth = lk(j)
      Next
      For i = 1 To 2
        .Rows(i).RowHeight = hg(i)
      Next
      
      r = .Cells(.Rows.Count, 1).End(xlUp).Row
      .Rows(3 & ":" & r).RowHeight = hg(3)
      .Range("a2:i" & r).Borders.LineStyle = xlContinuous
      With .Range("a2:i2")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
      End With
  Next
End Sub