Question

我是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

Answer 1

您是否不想仅将intDistrikt的值放入C5单元格？在这种情况下，它将是

Range("C5").Value = intDistrikt

将N从VBA粘贴到单元格，当N是dim N作为整数时，N = N + 1

1 个答案: