vba如何在copy时只复制数值，不复制格式？

Apophis · 发表于 2009-5-24 21:56

本来可以用Excel自带的选择性粘贴实现，但如果要用vba的话该怎么办呢？请高手不吝赐教

extyg · 发表于 2009-5-24 22:03

Sub test()
Range("a1").Copy
Range("a2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = xlCut
End Sub

guzhen9315 · 发表于 2009-5-24 22:12

用VBA 实现"选择性粘贴"

caisheg · 发表于 2009-5-24 22:46

其实这类问题，可以自己录个宏就知道了

Apophis · 发表于 2009-5-25 11:25

感谢二楼的正解，同时也谢谢其他几位的建议

gyzzf · 发表于 2009-5-25 11:36

原帖由 extyg 于 2009-5-24 22:03 发表
Sub test()
Range("a1").Copy
Range("a2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = xlCut
End Sub

能不能用一句代码表示？

cxzdd · 发表于 2010-3-4 14:08

同问，这样做的虽然可以解决在Excel内的粘贴，但是没有办法解决粘贴到word中单元格格式会变形的问题

HHP628 · 发表于 2012-1-15 14:47

cxzdd 发表于 2010-3-4 14:08
同问，这样做的虽然可以解决在Excel内的粘贴，但是没有办法解决粘贴到word中单元格格式会变形的问题

Sub 统计汇总_单击()

Application.ScreenUpdating = False
Sheet1.Rows("5:65536").Clear
Application.AskToUpdateLinks = False
With Application.FileSearch
      .LookIn = "d:\2012年度新农合报表\"
      .FileType = msoFileTypeExcelWorkbooks
      .SearchSubFolders = True
      If .Execute > 0 Then
         For i = 1 To .FoundFiles.Count
            If ActiveWorkbook.FullName <> .FoundFiles(i) _
               And InStr(.FoundFiles(i), "年1月份报表") > 0 Then
                  Workbooks.Open .FoundFiles(i)
                  Sheets("政务公开").Range("a5:o" & Sheets("政务公开").[a65536].End(3).Row).Copy _
                  Sheet1.Range("a" & Sheet1.[a65536].End(3).Row + 1)
                  ActiveWorkbook.Close False
            End If
         Next
      End If
End With
Application.ScreenUpdating = False

Range("E5:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
这里面如何改才能让它只复制数值，不复制公式

杨建营 · 发表于 2023-2-17 21:34

HHP628 发表于 2012-1-15 14:47
Sub 统计汇总_单击()

Application.ScreenUpdating = False

selection.value=selection.value

lushang2018 · 发表于 2023-2-17 22:36

.value=.value

		自动登录	找回密码
密码			免费注册

[求助] vba如何在copy时只复制数值，不复制格式？