您可以尝试使用Excel中的数据透视表来实现只粘贴数值的功能。首先，在需要粘贴数值的区域选择性地插入一个数据透视表，并在透视表中按照需求进行字段拖动和排序。然后，您可以为每个字段设置过滤规则，只显示数值而非文本或其他类型的字段。此外，您还可以通过使用Excel中的VLOOKUP函数和HLOOKUP函数等工具来实现更高级的粘贴操作。希望以上方法能够对您有所帮助！
-
-
Sub 选择性粘贴()
Selection.Copy
Dim x, y
x = Selection.Row() '行坐标
y = Selection.Column() '列坐标
Dim nx, ny
nx = 1 '粘贴是所要移动的行数
ny = 1 '粘贴是所要移动的列数
Cells(x+nx,y+ny).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
End Sub
先选择数据 运行宏 选择性粘贴
你的意思是不是要整列选择性粘贴呢？ -
Sub 替换() Dim i% For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = "a" Then Cells(i, 1) = Cells(1, 2) Next iEnd Sub
-
表格发邮箱，看能否实现。
-
1. 代码如下：
Sub add()
Dim i, a
For i = 2 To 99
a = Range("B" & i)
If a > 0 Then a = a + 1: Range("B" & i) = a
Next i
End Sub
2. 根据你的实际行号范围，调整for循环的最大值（99）。 -
ctrl+f 替换 a 成B1-1 可以直接实现你的目的了呀。
-
EXCEL有录制宏的功能，粘贴以下代码运行，就可以反表1的内容粘贴在表2中了
1，打开表格---单击----查看代码---插入---模块--运行
Sub Macro2()'' Macro2 Macro'' Cells.Select Sheets("Sheet1").Select Cells.Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.PasteEnd Sub