关于EXCEL，VBA,以下宏中Do While ActiveCell().Value <> ""语句出现类型不匹配的问题

答案:2 悬赏:20 手机版

解决时间 2021-03-11 19:42

提问者网友：欲劫无渡
2021-03-10 19:01

Option ExplicitSub JoRecordedMacro()Dim outerloop As DoubleDim Joloop As Integer
Range("n16:n10015").SelectSelection.ClearContents
Application.ScreenUpdating = False
For outerloop = 1 To 50 Step 1Application.ScreenUpdating = TrueCalculateApplication.ScreenUpdating = FalseFor Joloop = 1 To 100 Step 1 ActiveSheet.Calculate Range("k275").Select Selection.Copy Range("n15").Select Do While ActiveCell().Value <> "" Selection.Offset(1, 0).Select Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = FalseNext JoloopNext outerloopApplication.ScreenUpdating = True
End Sub

计算几十个数字后就出现类型不匹配（问题13）

最佳答案

五星知识达人网友：玩家
2021-03-10 19:13

如果文件不保密，请把文件做为附件发上来。

全部回答

1楼网友：思契十里
2021-03-10 20:49

应该是循环时，ActiveCell().Value碰到了错误值，比如#VALUE、#NA等再看看别人怎么说的。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息