求教：行数是变量，列是固定的，如何来表达多个不连续的单元格

三等菜鸟

问题如下：
Sub 多个不连续单元格的选取()
m = [a500].End(3).Row
n = [m500].End(3).Row
a = m - n
Range(Cells(n - 5, 5), Cells(n - 5, 10)).Select-----这里是连续单元格第5至第10列
Selection.AutoFill Destination:=Range(Cells(n - 5, 5), Cells(n + a + 1, 10)), Type:=xlFillDefault '这部分需多填充1行

End Sub

现在需要填充多个这种不连续的单元格j q s z ab ai ak等列，能不能把这些单元格一次设定？

谢谢

lln0618

Union(Columns(1), Columns(3), Columns(5)).Select   '选择不连续列

Range("A:A,C:C,E:E").Select  '选择不连续列

三等菜鸟

回lln0618，恐怕不行
主要是一个变量和多个列怎么写的问题
如   Range(Cells(n - 5, "j"), Cells(n - 5, "q")）.select  是j列至q列的区域，我要的是  j&（n-5）q&（n-5）这2单元格

longwin

三等菜鸟 发表于 2024-5-15 15:04
回lln0618，恐怕不行
主要是一个变量和多个列怎么写的问题
如   Range(Cells(n - 5, "j"), Cells(n - 5,  ...

试一下：

Set selectedRange = Union(Cells(n - 5, "j"), Cells(n - 5, "q"))
selectedRange.Select

lln0618

j q 列直接用数字代替
Union(Cells(n - 5, 10), Cells(n - 5, 17)).Select

lln0618

longwin 发表于 2024-5-15 16:30
试一下：

Set selectedRange = Union(Cells(n - 5, "j"), Cells(n - 5, "q"))

Union(Cells(n - 5, j), Cells(n - 5, q))    变量不能用双引号

longwin

lln0618 发表于 2024-5-15 16:55
Union(Cells(n - 5, j), Cells(n - 5, q))    变量不能用双引号

我说的是一个大体的意思，如果j跟q是变量的话，你这么改没问题，如果不是的话最好改成数值：（j->10,q->17)
Set selectedRange = Union(Cells(n - 5, 10), Cells(n - 5, 17))
selectedRange.Select

三等菜鸟

谢谢楼上的老师，让我知道了 union（），有这么个功能