怎麼用?選擇性粘貼把公式去掉
2023-03-29 05:31:44 2
在工作表插入一命令按鈕,並編程如下:
Private Sub CommandButton1_Click
Dim rag As Range
Dim arr, b$
arr = UsedRange
b$ = UsedRange.Address
For Each rag In UsedRange
rag.Formula = ""
Next
Range(b$) = arr
End Sub
2023-03-29 05:31:44 2
在工作表插入一命令按鈕,並編程如下:
Private Sub CommandButton1_Click
Dim rag As Range
Dim arr, b$
arr = UsedRange
b$ = UsedRange.Address
For Each rag In UsedRange
rag.Formula = ""
Next
Range(b$) = arr
End Sub