用VBA编写复制功能，能不能只粘贴值，不粘贴格式

Posted 2023-04-23

参考技术A 自己录制一个宏，然后改改就可以了埃 Sub Pspec() For i = 1 To 10 Sheets(i).Activate Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.Cu... 参考技术B

将Sheet1中A1单元格的当前区域的值  粘贴到 sheet2的代码

Sub test()
Sheet1.Range("A1").CurrentRegion.Copy
Sheet2.Range("A1").PasteSpecialPaste:=xlPasteValues
Application.CutCopyMode = False
End Sub

参考技术C Sub aa() Dim x If Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a1").Value = "" Then x = 1 ElseIf Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a...

excel vba 选择性粘贴并设置为真文本？

选定区域用VBA 选择性粘贴并设置为文本的问题1、选择性粘贴；2、设置为文本；3、如图，要让文本单元格左上角有"文本小三角形"。不可能一个一个的回车操作，有什么好的VBA代码吗。只要选定的区域，不要设置特定的单元格。谢谢！
简单描述下：D2=B2+C2
选择性粘贴后，值是73，单元格格式为常规
设置单元格格式为文本后要回车操作才会出现文本小三角，用vba可以一次性解决吗。

Public Sub 文本粘贴2()
Dim Rng As Range, CxRng As Range
If Selection.Count > 1 Then
Set Rng = Selection
Rng.NumberFormatLocal = "@"
For Each CxRng In Rng
CxRng.Value = "'" & CxRng.Value
Next
End If
End Sub 参考技术A 其实搜索一下就有答案。。。
可以先将单元格设置为文本再运行VBA
也可以用类似于以下的代码
Range("D2").NumberFormatLocal = "@"