VBA怎么随机选择一行，并复制到剪贴板呢？

aaronpang1

如图，选择其中一行，并复制。到鼠标剪贴板

hfwufanhf2006

假设行数是 i ，复制行的代码：
rows(i).copy
会把 i 行 复制到了剪贴板，后续可以用ctrl+v粘贴到任意行

如果是想把 i 行复制到指定行，比如 20 行，必须是从a20开始，因为是整行复制，所有的列都不能省略：
rows(i).copy range("a20")

aaronpang1

hfwufanhf2006 发表于 2019-8-20 08:28
假设行数是 i ，复制行的代码：
rows(i).copy
会把 i 行 复制到了剪贴板，后续可以用ctrl+v粘贴到任意行
...

有没办法，随机选择一行的呢？

hfwufanhf2006

aaronpang1 发表于 2019-8-20 08:57
有没办法，随机选择一行的呢？

用随机函数rnd就能得到一个大于零小于1的随机数，因为是随机小数，要变成可用的整数，需要用一定的算法转换：
常用的使用int，比如得到1-10之间的随机数
   int(10*rnd)+1
要得到可用行的随机行数，可以用上面类似的方法：
   int([a100000].end(3).row*rnd)+1
   其中：[a100000].end(3).row是a列最大的有效数据行数，如果数据在b列，把[a100000]改成[b100000]。字母后面的数字100000并非一定是这个数，只需要这个数大于你实际的数据行即可，比如数据的最大行是20000行，那么[a25000]就可以了，数字小于实际的数据行则不行；

高

Sub nn()
r1 = 2   '数据开始行，即标题行+1
r2 = Range("a65536").End(xlUp).Row  '数据结束行
i = Int(r2 * Rnd) + r1
Rows(i).Copy
End Sub

aaronpang1

可以随机选择一行了

可表格是先分类，然后再随机选择的。

有没办法，移动方向键盘上下，然后选择，正在显示的一行的呢？（图一是我的设想，不知有没更好的办法）

大灰狼1976

1. Sub nn()
   
2. r1 = 2   '数据开始行，即标题行+1
   
3. r2 = Range("a65536").End(xlUp).Row  '数据结束行
   
4. do
   
5.     i = Int(r2 * Rnd) + r1
   
6. loop until rows(i).hidden=false
   
7. Rows(i).Copy
   
8. End Sub

复制代码