随机复制exal表格的两行？

~

用index  和 rand函数就行，没有那么复杂。

可以通过Excel中的“随机选择”功能来实现自动化地随机复制数据。

以下是步骤：

创建一个新的工作表，在其中创建两列，分别为“日期”和“时间”，将原始数据中的所有日期和时间分别填入这两列中。

在第三列中添加随机数，用于作为筛选条件。

使用VLOOKUP函数，将随机数与原始数据中的日期和时间一一对应起来。

运用RAND函数为每一行产生一个随机数，然后使用IF函数将其与第三列的随机数对比，如果相等则复制这一行数据到另一个工作表中。

重复上述步骤多次，直到所需的随机样本数量达到要求。

参考如下示例公式：

=RAND() >= VLOOKUP(DATE($C$1,$D$1,D$2),DATE(ORIGINAL_DATE_COL,TIME(ORIGINAL_TIME_COL),RANDOM_NUM_COL),FALSE)

以上步骤中，

ORIGINAL_DATE_COL代表原始数据中的日期所在的列

ORIGINAL_TIME_COL代表原始数据中的时间所在的列

RANDOM_NUM_COL代表新创建的随机数所在的列

注意：这个方法可能需要一段时间来运行，取决于数据量的大小。如果您有大量数据需要复制，则可能需要寻求更为高效的方式来实现此操作。

在Excel中随机复制表格的两行有多种方法，以下是其中一种：
1.选中需要复制的行，右键单击并选择“复制”。
2.在需要粘贴的位置，右键单击并选择“粘贴”。
3.在粘贴选项中，选择“跳过空单元格”。
这将随机复制选中的两行并粘贴到目标位置。请注意，这种方法可能会导致数据重复或缺失，因此在进行操作时要小心。

这个是可以的吧

是的，你可以使用Excel的VBA宏（Macro）来实现这个任务。VBA是一种编程语言，可以用来编写Excel的宏，这些宏可以自动执行一些重复的任务，如复制和粘贴数据。
以下是一个简单的VBA宏示例，该宏会随机复制表格中每天的0到23时的两个数据，并粘贴到另一个工作表中：
vba复制代码
Sub RandomCopy()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim sourceRange As Range
Dim targetRange As Range
Dim randomRow As Range
Dim randomCell As Range
Dim copyCount As Integer
Dim i As Integer
Dim j As Integer
Dim lastRow As Long
Dim lastCol As Long

' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 请根据实际情况修改工作表名称
Set targetSheet = ThisWorkbook.Sheets("Sheet2") ' 请根据实际情况修改工作表名称

' 设置源数据范围和目标数据范围
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row ' 根据实际情况修改列A或其他列来确定最后一行
lastCol = sourceSheet.Cells(1, sourceSheet.Columns.Count).End(xlToLeft).Column ' 根据实际情况修改最后一列的列号
Set sourceRange = sourceSheet.Range(sourceSheet.Cells(1, 1), sourceSheet.Cells(lastRow, lastCol))
Set targetRange = targetSheet.Range(targetSheet.Cells(1, 1), targetSheet.Cells(lastRow, lastCol))

' 随机选择一行和一列复制数据
Set randomRow = sourceRange.Cells(Int((lastRow - 1) * Rnd) + 1, 1) ' 随机选择一行，可根据需求修改范围和随机选择行数的方法
Set randomCell = sourceRange.Cells(randomRow.Row, Int((lastCol - 1) * Rnd) + 1) ' 随机选择一列，可根据需求修改范围和随机选择列数的方法
copyCount = Int((lastRow - 1) * Rnd) + 1 ' 随机选择要复制的行数，可根据需求修改范围和随机选择行数的方法

' 复制数据到目标工作表
For i = 1 To copyCount ' 根据需求修改要复制的行数和复制次数
randomRow.EntireRow.Copy targetRange.Cells(i, 1) ' 将选中的行复制到目标工作表，可根据需求修改目标位置和复制方式（剪切/复制）
Next i
End Sub
你可以将以上代码复制到Excel的VBA编辑器中（使用Alt+F11打开），然后运行宏（使用F5或点击运行按钮）即可。这个宏会随机选择一行和一列，然后将它们复制到目标工作表中。你可以根据需要调整代码中的参数来改变复制的数据范围和数量。

---

竹溪县19220052282： excel如何随机抽取不重复的行,然后复制粘贴出来 - ？
阙亨复方： 如图,A14公式=INDEX(A$1:A$11,SMALL(IF(COUNTIF(A$13:A13,A$2:A$11)=0,ROW($2:$11)),RANDBETWEEN(1,COUNT(A$2:A$11)-ROW(A1)+1))),公式输完后按CTRL+SHIFT+ENTER结束.公式下拉. B14公式=VLOOKUP($A14,$A:$Q,COLUMN(B1),),公式右拉,下拉. 需要多少记录就下拉多就可以了.

竹溪县19220052282： EXCEL表怎样自动复制上行至下方两行 - ？
阙亨复方： 假设你要操作的是B列. 选中B列数据区域——F5键,定位——空值——确定——在编辑栏输入公式: =B17 这个单元格是你第一个空行上面一行的单元格.按CTRL+回车.即可.

竹溪县19220052282： Excel快速复制:如何快速隔行复制相同内容!如图所示 - ？
阙亨复方： 解决Excel快速复制:如何快速隔行复制相同内容的步骤如下: 1.首先,我们打开一个excel表格来演示,我们需要隔行复制表格中的内容. 2.为达到隔行复制的目的,我们在表格D列中创建一个辅助列,间隔输入1和0. 3.光标移到图中位置,点击工具栏“排序和筛选”,点击“筛选”. 4.点击筛选下拉箭头,选择“数字筛选”,去掉数字“0”前面的对勾,点击确定. 5.此时,筛选结果就出来了,只显示隔行的表格内容,我们把它们选中复制、粘贴就可以了.这样就解决了Excel快速复制:如何快速隔行复制相同内容的问题了.

竹溪县19220052282： excel怎么复制分开的两行,并且粘贴的时候保持相对位置? - ？
阙亨复方： 在H1输入公式 =A1 然后复制公式粘到 H1:N1,H3:N3 行就可以了

竹溪县19220052282： excel单行数据怎么复制到双行 - ？
阙亨复方： 试试右击选择只复制数值

竹溪县19220052282： EXCEL中如何快速复制粘贴n多行或列? - ？
阙亨复方： 还在用复制和粘贴?Excel更快地复制表格中的行或列的方法在这里

竹溪县19220052282： excel中有一列有相同数据,怎样一次性复制有相同数据的行到另一个表格? - ？
阙亨复方： 用数据菜单内的筛选命令,先筛选出相同数据,然后复制记录至另一表格

竹溪县19220052282： 在excel中如何把表格中不相邻的两列完部复制 - ？
阙亨复方： 假设看到的数据在A到D列. 在E2输入 =A2B2C2D2 回车后再选中E2,鼠标移到其右下角,双击那个“+”. 然后右键点E列,复制,再右键,选择性粘贴,数值,确定.删除A到D列.

竹溪县19220052282： excel中带有公式的两行表格怎样复制？
阙亨复方： 你把3月份的sheet复制1个,就是鼠标右键点击表格左下角3月份的表格sheet名,在弹出菜单选择“移动或复制”,在弹出对话框左下角的“建立副本”前面勾选上,然后肯定就能够了,最后把你创建的副本sheet改1下名,把3月份的数据改成4月份的就能够了

竹溪县19220052282： 如何复制多行excel 文档 - ？
阙亨复方： 在左上角名称框中输入1:50000然后按回车