Question

Excel VBA如何实现多个工作表的选择性粘贴数值

Sub macro3()Dim i As RangeFor Each i In Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas, 23)If i.Formula Like "*" Then i = i + 1Next iEnd Sub这只是在sheet1中进行，怎么改让其在所有工作表中进行？

Answer 1

Sub macro3()
Dim i As Range
For sh = 1 To Sheets.Count
For Each i In Sheets(sh).UsedRange.SpecialCells(xlCellTypeFormulas, 23)
If i.Formula Like "*" Then i = i + 1
Next
Next
End Sub

试试这个