小编exc*_*l34的帖子

如果在VBA语言中x是整数,我该如何表达这个术语？我想编写一个代码,如果x是整数,它会执行某些操作,如果不是vba excel则执行其他操作.

Sub dim()
  Dim x is Variant

  'if x is integer Then 

  'Else:

End Sub 

我正在尝试编写一个宏,将第1列的内容从第1页的第1列复制到第2列.这就是模块的外观,但是,当我运行它时,我得到了

运行时错误9,下标超出范围.

Sub OneCell()
    Sheets("Sheet1").Select
    'select column 1 A1'
    Range("A1:A3").Select

    Selection.Copy
    Range("B1:B3").Select

    ActiveSheet.Paste

    Sheets("Sheet2").Select
    Application.CutCopyMode = False
End Sub