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

Apophis

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

extyg

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

guzhen9315

用VBA 实现"选择性粘贴"

caisheg

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

Apophis

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

gyzzf

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

能不能用一句代码表示？

cxzdd

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

HHP628

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
这里面如何改才能让它只复制数值，不复制公式

杨建营

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

selection.value=selection.value

lushang2018

.value=.value