selection 请教

ME.李

小弟 用set  RNG = selection，选中了个区域  然后复制到一个工作表 ，现在我的操作是 数据复制后  用delete删除不需要的列 最后保存。 查了网上资料  有人说可以装入一个数组，可以直接选择 需要的列 因为确实不知道怎么操作 因此请教论坛大神能指点下或者讲解下 不胜感激

大概实现的效果就是 我先选中一个区域（一行或者多行），然后打开一个文档，新增一个工作表  然后把需要的数据复制过去。但是还没调好 感觉哪里不对，我只想打开那个文档只打开一次 然后选择区域 就COPY 过去。现在每运行这个代码 就弹出打开对画框   而且  for循环 不知道为什么不运行

gwjkkkkk

上传附件，模拟一下结果 。。。

ME.李

gwjkkkkk 发表于 2023-6-17 22:13
上传附件，模拟一下结果 。。。

已传附件 还请指教。我想通过SELECTion 选中一行 ，然后打开一个文档  然后COPY 数据。打开的文档只需要打开一次 ，然后就根据需要去选择区域   就复制到打开的文档，但是现在代码运行不了

gwjkkkkk

请参考。。。

ME.李

gwjkkkkk 发表于 2023-6-18 12:23
请参考。。。

感觉不是那效果，第一个  selection 选中的行  比如我只想需要选中行的第一列  第二列   第五列  然后COPY到新的工作簿1. 现在朋友的代码还是一整行数据，所以昨晚发帖请求论坛大哥 能指点一下  把selection 区域 装入一维数组  数组就可以随便选择了




2.第二个就是 能不能只打开一次新的文档，现在朋友的代码虽然可以再次打开新的文档 但是数据复制的时候是复制到新的工作表，我初衷是复制的数据装入同一个工作表

gwjkkkkk

ME.李 发表于 2023-6-18 14:20
感觉不是那效果，第一个  selection 选中的行  比如我只想需要选中行的第一列  第二列   第五列  然后COP ...

这个不会了。。。

Lastdoor

你要先把表内的信息赋值到数组里，然后才能把数组输出到目标工作簿。我看了下你的代码只是在做后半部分。

前半部分大概就是下面这个赋值的过程
for i = R1 to R1 + CC - 1 'R1 CC看下面
arr(i-R1+1,1) = range(xxx).value   
arr(i-R1+1,2) = range(xxx).value  
……
Next

然后你后面输出数组，是在重复输出arr（1，x），也要改成循环的

我在贴吧找到个模板，是用来读取选中范围的行数的（按住shift选中不连续的范围的情形不可用）
R1 = ActiveCell.Row '选取范围的首行
For S = 1 To Selection.Areas.Count  'CC=选取范围总共有多少行
CC = CC + Selection.Areas(S).Rows.Count
Next

ME.李

Lastdoor 发表于 2023-6-18 20:09
你要先把表内的信息赋值到数组里，然后才能把数组输出到目标工作簿。我看了下你的代码只是在做后半部分。
...

嗯  好的谢谢