VBA求助:选择性粘贴纯数值格式的数据,循环多次
发布网友
发布时间：2022-05-03 07:32
共2个回答
热心网友
时间：2023-10-14 10:58
利用VBA做选择性粘贴纯数值格式的数据，循环多次。
根据你的问题描述感觉你的思路步骤比较繁琐，其实简单的四步就可以完成了，如下：
1、KKK工作簿的Max表格的A1:B21等于工作簿的Max表的O2:P22的值（此处我是用A2:B22代替）
2、将第一步完成后，复制KKK工作簿的Max表A1:B21到C1:AN21单元格区域；
3、同第一步的原理完成Min工作表的A1:B21区域；
4、同第二步的原理完成Min工作表的C1:AN21区域；
具体代码如下图：
热心网友
时间：2023-10-14 10:58
Dim i&, n&
For i = 1 To 20
Call 随机分组
Workbooks("KKK.xlsx").Sheets("MAX").Cells(1, i * 2 - 1).Resize(21, 2) = ThisWorkbook.Sheets("筛选（MAX）").[o2:p22].Value
Workbooks("KKK.xlsx").Sheets("min").Cells(1, i * 2 - 1).Resize(21, 2) = ThisWorkbook.Sheets("筛选（min）").[o2:p22].Value
Next
End Sub追问你好，VBA运行的时候显示下标越界
追答找找自身原因，代码我是测试过的
热心网友
时间：2023-10-14 10:58
利用VBA做选择性粘贴纯数值格式的数据，循环多次。
根据你的问题描述感觉你的思路步骤比较繁琐，其实简单的四步就可以完成了，如下：
1、KKK工作簿的Max表格的A1:B21等于工作簿的Max表的O2:P22的值（此处我是用A2:B22代替）
2、将第一步完成后，复制KKK工作簿的Max表A1:B21到C1:AN21单元格区域；
3、同第一步的原理完成Min工作表的A1:B21区域；
4、同第二步的原理完成Min工作表的C1:AN21区域；
具体代码如下图：
热心网友
时间：2023-10-14 10:58
Dim i&, n&
For i = 1 To 20
Call 随机分组
Workbooks("KKK.xlsx").Sheets("MAX").Cells(1, i * 2 - 1).Resize(21, 2) = ThisWorkbook.Sheets("筛选（MAX）").[o2:p22].Value
Workbooks("KKK.xlsx").Sheets("min").Cells(1, i * 2 - 1).Resize(21, 2) = ThisWorkbook.Sheets("筛选（min）").[o2:p22].Value
Next
End Sub追问你好，VBA运行的时候显示下标越界
追答找找自身原因，代码我是测试过的
