我没有试图重现你的问题，但在短暂的看了一下你的代码后，我想知道你为什么要写
尺寸计数器为布尔值尺寸最大计数器为布尔值计数器=“1”
我认为您应该首先将类型从Boolean更改为Integer，然后写入counter = 1（即使VBA可能会以您希望的方式处理此问题，因为类型为Integer）
也许是对未来的一个提示：如果你知道一个循环将被执行多少次，你可以考虑使用For counter ... Next counter而不是counter = 1 While ... counter = counter + 1 ... Wend

Option Explicit

Sub trial()

    Dim destination As String
    Dim inputer As Long
    Dim country As String
    Dim counter As Long
    Dim maxcounter As Long
    
    Dim ws As Worksheet
    Set ws = Sheets(1) ' Main Sheet
    
    maxcounter = ws.Range("P1").Value
    destination = ws.Range("O1").Value
    
    counter = 1
    While counter <= maxcounter
    
        country = ws.Range("A" & counter).Value
        inputer = ws.Range("B" & counter).Value
        Sheets(country).Range(destination).Value = inputer
    
        counter = counter + 1
    Wend
End Sub

这里的问题是布尔值。布尔值用于真/假值Windows Boolean Data Type Reference。maxcounter的定义很好，但如果您希望始终对整个表执行此操作，则可以将其更改为自动查找数据集的最后一行，而不是特定的单元格。您还应该至少为包含数据表的工作表定义一个工作表变量。下面是我将如何使用相同的通用设计来实现这一点：

Sub trial()
Dim ws As Worksheet
Dim destination As String
Dim country As String
Dim counter As Long
Dim maxcounter As Long

Set ws = Sheets("Sheet1")
'Sheet1 is placeholder. Replace with whatever name of the sheet is where the data table is.

maxcounter = ws.Range("P1").Value
destination = ws.Range("O1").Value

For i = 1 To maxcounter
    country = ws.Cells(i, 1).Value
    Sheets(country).Range(destination).Value = ws.Cells(i, 2).Value
Next

End Sub

复制值

Option Explicit

Sub CopyValues()
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    Dim sws As Worksheet: Set sws = wb.Worksheets("Sheet1") ' Source Worksheet
    
    Dim DestinationAddress As String ' (destination)
    DestinationAddress = sws.Range("O1").Value
    
    Dim LastRow As Long ' (maxcounter As Boolean)
    LastRow = sws.Range("P1").Value
    
    Dim r As Long ' (counter As Boolean)
    r = 1
    
    Dim dws As Worksheet ' Each Destination Worksheet (Object)
    Dim dCell As Range ' Each Destination Cell (Object)
    Dim Country As String ' (country)
    Dim Points As Long ' (inputer) ' use more appropriate than 'Points'
    
    Do While r <= LastRow ' 'Do...Loop' is an improved 'While...Wend'
        Country = sws.Range("A" & r).Value
        Points = sws.Range("B" & r).Value
        Set dws = wb.Worksheets(Country)
        Set dCell = dws.Range(DestinationAddress)
        dCell.Value = Points
        r = r + 1
    Loop

    MsgBox "Data copied.", vbInformation

End Sub