将N从VBA粘贴到单元格,当N为整数时,N=N+1

将N从VBA粘贴到单元格,当N为整数时,N=N+1,vba,excel,Vba,Excel,我是VBA的新手,以前使用过这个网站来寻找答案,但这里有一个问题我还没有找到答案。 我有20本工作簿,我正在使用我的主工作簿打开并运行这些工作簿。在本工作簿中,我插入了从1到25的数字。但是当我尝试运行宏时,我得到了一个错误的无效限定符。 下面是代码中的一位,当我得到错误时,它被标记为:intDistrikt.Paste 提前感谢你的帮助 Dim strMåned As String, intDistrikt As Integer, rngStart As Range, intNumRow As

我是VBA的新手,以前使用过这个网站来寻找答案,但这里有一个问题我还没有找到答案。 我有20本工作簿,我正在使用我的主工作簿打开并运行这些工作簿。在本工作簿中,我插入了从1到25的数字。但是当我尝试运行宏时,我得到了一个错误的无效限定符。 下面是代码中的一位,当我得到错误时,它被标记为:intDistrikt.Paste

提前感谢你的帮助

Dim strMåned As String, intDistrikt As Integer, rngStart As Range, intNumRow As Integer
Dim intX As Integer, intLoops As Integer, lstMåned As UserForm
intDistrikt = 0    

Application.DisplayAlerts = False
Do
    intDistrikt = intDistrikt + 1
    Windows("Lønudvikling.xlsm").Select
    Range("C5").Select
    **intDistrikt.Paste**

    Application.Run "'Lønudvikling.xlsm'!DistriktsLønopfølgning"

    Range("B10:H24").Copy
    Windows("Kæde lønudvikling.xlsx").Select
    Sheets("Kæde").Select
    rngStart.Select
    Range.End(xlUp).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Loop Until intDistrikt >= 25    

End Sub

是否只将intDistrikt的值放入单元格C5?如果是这样的话

RangeC5.Value=intDistrikt