UC知道关于EXCEL函数判断语句
来源：百度知道 编辑：UC知道 时间：2024/05/15 06:28:08
我要对工作本中每个工作表固定位置进行复制再以"仅有值"的方式贴回原位(原位置是函数,我要把它换为值),现在的问题是,怎么让它判断当前工作本是否是最后一个,若不是,翻到下一个工作本,并循环上一次的选择/复制/黏贴?若是最后一个,则退出运行宏?
复制黏贴并翻到下一页的语句是这样的:
Range("I4:K4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Next.Select
哪位高手能帮我帮我改写吗?
复制黏贴并翻到下一页的语句是这样的:
Range("I4:K4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Next.Select
哪位高手能帮我帮我改写吗?
完整的代码是这样
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Select
ActiveSheet.Range("I4:K4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next