从已定义的范围中select一些列

我是新的进入Excel的VBA，我试图select一个范围内的一些列（工作在一个循环）。 然后我想合并这些列。 我现在已经编码了

For l = 2 To 8 Worksheets("SdB pg1").Range(Geo1).Columns(l).MergeCells = True Next l` 

Geo1是一个Rangevariables

l是一个整数variables

但是我想让它只运行在第2列和第3列，然后一起select第4,5,6,7和8列，然后合并。 我已经尝试过“And”，“＆”，Columns（“K：O”），但没有成功。 如果可能的话，我不想创build新variables，只需直接使用范围并避免“.select”。 希望你们中的任何人都可以帮忙

Answer 1

这会为你工作吗？

 Sub Test() Dim l As Long Dim Geo1 As Range Set Geo1 = ThisWorkbook.Worksheets("Sdb pg1").Range("A1:H5") Geo1.Columns(2).Resize(, 2).MergeCells = True Geo1.Columns(4).Resize(, 5).MergeCells = True End Sub 

我手动添加了边框：