Question

excel 如何在range中插入变量

excel 中如何将一个表1中的部分数据筛选复制到表2中，并且表1中数据更改，表2也更改。数据量比较大，需使用VBA，现采用代码如下：
Dim i, j, k As Integer
k = 1 'k赋初值
i = InputBox("please input the item num:") '给出总行数信息
For j = 1 To i '循环判断
If Sheets("sheet1").Cells(j, 5).Text = 1 Then '如果第5列的值等于1
Sheets("sheet1").Select
Range(Cells(j, 1), Cells(j, 5)).Select '选中表1中前五列数据
Selection.Copy '复制
Sheets("Sheet2").Select '选中表2
Range(Cells(k, 1), Cells(k, 5)).Select '选中表2的前5列
ActiveSheet.Paste Link:=True '粘贴链接
k = k + 1 '表2行号增加
End If
如果不是将筛选出的所有5列的数据显示，只显示1、3、5这3列不连续列数，那range中该如何更改呢？

Answer 1

你原来的程序：
-----------------
Public Sub xx()
Dim i, j, k As Integer
k = 1 'k赋初值
i = InputBox("please input the item num:") '给出总行数信息
For j = 1 To i '循环判断
If Sheets("sheet1").Cells(j, 5).Text = 1 Then '如果第5列的值等于1
Sheets("sheet1").Range(Cells(j, 1), Cells(j, 5)).Copy '复制
Sheets("Sheet2").Range(Cells(k, 1), Cells(k, 5)).Paste Link:=True '粘贴链接
k = k + 1 '表2行号增加
End If
Next
End Sub

-----------
135列复制：
-------------
Public Sub xx1()
Dim i&, j%, k%, m%, n%, A(1 To 3) As Integer
A(1) = 1 '需要复制连接的列
A(2) = 3
A(3) = 5
k = 1 'k赋初值
i = InputBox("please input the item num:") '给出总行数信息
For j = 1 To i '循环判断
If Sheets("sheet1").Cells(j, 5).Text = 1 Then '如果第5列的值等于1
For m = LBound(A) To UBound(A)
Sheets("sheet1").Cells(j, A(m)).Copy '复制
Sheets("Sheet2").Cells(k, m).Paste Link:=True '粘贴链接
Next
k = k + 1 '表2行号增加
End If
Next
End Sub