[已解决]复制时不带格式

cyj153

Sub cyj()
   Dim Arr1, Hy, Y
   With Sheet1
      Arr1 = .Range("a2").CurrentRegion
      Y = 2
      For Hy = 1 To UBound(Arr1)
         .Range(.Cells(Hy, 4), .Cells(Hy, 12)).Copy Sheet2.Cells(Y, 1)
         Y = Y + 1
      Next
   End With
End Sub
如何修改以上代码使其复制时不带格式，谢谢！

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-11-12 15:58

Sub cyj()
   Dim Arr1, Hy, Y
   With Sheet1
      Arr1 = .Range("a2").CurrentRegion
      Y = 2
      For Hy = 1 To UBound(Arr1)
         .Range(.Cells(Hy, 4), .Cells(Hy, 12)).Copy
         Sheet2.Cells(Y, 1).pastespecial paste:=xlpastevalues
         Y = Y + 1
      Next
   End With
End Sub

跳转到最佳答案楼层

我心飞翔410

        Range("a1:a10").Copy
        Range("e1").PasteSpecial (xlPasteValues)

yyyydddd8888

Sub cyj()
   Dim Arr1, Hy, Y
   With Sheet1
      Arr1 = .Range("a2").CurrentRegion
      Y = 2
      For Hy = 1 To UBound(Arr1)
         .Range(.Cells(Hy, 4), .Cells(Hy, 12)).Copy
         Sheet2.Cells(Y, 1).pastespecial paste:=xlpastevalues
         Y = Y + 1
      Next
   End With
End Sub

爱疯

直接赋值，rngA=rngB.value

panruo

Sub cyj()
   Dim Arr1, Hy, Y
   With Sheet1
      Arr1 = .Range("a2").CurrentRegion
      Y = 2
      For Hy = 1 To UBound(Arr1)
         .Range(.Cells(Hy, 4), .Cells(Hy, 12)).Copy '注意这行代码和下面那段代码要分开写。copy后面省略，表示复制到粘贴板
         Sheet2.Range("a" & Y).PasteSpecial (xlPasteValues) '复制值，或者Range("a" & Y)改成cells(Y,1)也行
         Y = Y + 1
      Next
   End With
Application.CutCopyMode = False '释放粘贴板

End Sub