小编Dom*_*992的帖子

刚开始在VBA中编程，我有一个问题，我不知道该如何解决。我认为一切都很好。当我想运行此宏时，显示运行时错误“ 6”溢出。

Sub Dzia?aj()
Dim Tablica(1 To 5000) As String
Dim Dni()
Dim kolumna As Integer
Dim wiersz As Integer
Dim licznik As Integer
Dim PF As Boolean
Dim tmp As Integer
Dim i As Integer
Dim tmp2 As String
licznik = 2
tmp = 0
PF = False
kolumna = 22
wiersz = 2
Do
    If Worksheets("Pocz?tkowe").Cells(wiersz, kolumna).Value <> vbNullString Then
        For i = 1 To licznik
            If Worksheets("Pocz?tkowe").Cells(wiersz, kolumna).Value = Tablica(i) Then 'debugger shows problem here i guess …