子/功能应用程序定义或对象定义的错误

Question

我试图制作一个可以排列两列的vba函数，但是它给了我这个错误，然后我把它变成了一个始终相同的错误的子对象，无论如何这里都是代码：

Public Sub Permute()
Dim col1 As Integer

Dim col2 As Integer

Dim n As Integer
n = TextBox1.Text
Sheets("Feuil1").Select
For i = 1 To n
Cells(i, n + 1).Value = Cells(i, col1).Value
Cells(i, n + 2).Value = Cells(i, col2).Value
Cells(i, col1).Value = Cells(i, n + 2).Value
Cells(i, col2).Value = Cells(i, n + 1).Value
Next i
End Sub

错误正好在Cells（i，col1）和Cells（i，col2）中……这是什么意思？ 顺便说一句，当我尝试将其链接到另一个子程序时，它仅给我一个错误，但是当我在button子程序中编写代码时，它确实置换了两列。 我什至不知道为什么或做什么请帮助谢谢！