blocks|key|1005879|text|试试这个：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1005880|Dim+n&,+x&
n+=+0
x+=+Application.WorksheetFunction.CountIf(Range("J:J"),+"+")
Range("A2").Select

While+n+<>+x
++++ActiveCell.EntireRow.Copy:+ActiveCell.Offset(1,+0).EntireRow.Insert
++++ActiveCell.EntireRow.Copy:+ActiveCell.Offset(1,+0).EntireRow.Insert
++++ActiveCell.Offset(3,+0).Select
++++n+=+n+%2B+1
Wend
Application.CutCopyMode+=+False
End+Sub|code-block|syntax|javascript|1005881|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

try this:

<pre><code>Dim n&amp;, x&amp;
n = 0
x = Application.WorksheetFunction.CountIf(Range("J:J"), " ")
Range("A2").Select

While n &lt;&gt; x
 ActiveCell.EntireRow.Copy: ActiveCell.Offset(1, 0).EntireRow.Insert
 ActiveCell.EntireRow.Copy: ActiveCell.Offset(1, 0).EntireRow.Insert
 ActiveCell.Offset(3, 0).Select
 n = n + 1
Wend
Application.CutCopyMode = False
End Sub
</code></pre>

blocks|key|1611407|text|下面是一些允许用户输入行计数的代码，并测试每一行的J列是否为空：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1611408|Sub+CopyRows()

Dim+x+As+Integer
x+=+InputBox("How+Many+Rows+to+Copy?",+8)

Dim+c+As+Range
Set+c+=+Range("A2")

Dim+y+As+Integer

For+y+=+x+to+c.Row+Step+-1

++++If+IsEmpty(Cells(y,+"J"))+Then

++++++++Cells(y,1).EntireRow.Copy:+Cells(y,1).Resize(2,1).EntireRow.Insert+Shift:=xlDown

++++End+If

Next

End+Sub|code-block|syntax|javascript|1611409|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Here is some code that will allow the user to input the row count and test if column J is blank for each row:

<pre><code>Sub CopyRows()

Dim x As Integer
x = InputBox("How Many Rows to Copy?", 8)

Dim c As Range
Set c = Range("A2")

Dim y As Integer

For y = x to c.Row Step -1

 If IsEmpty(Cells(y, "J")) Then

 Cells(y,1).EntireRow.Copy: Cells(y,1).Resize(2,1).EntireRow.Insert Shift:=xlDown

 End If

Next

End Sub
</code></pre>

blocks|key|1611441|text|如果可以依赖列A来显示要处理的行的范围，那么在A列中找到最后填充的行并向第2行工作应该涵盖所有要处理的行。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1611442|Sub+add_Duplicate_Blank_Js()
++++Dim+rw+As+Long

++++With+Worksheets("Sheet4")
++++++++With+.Cells(1,+1).CurrentRegion
++++++++++++For+rw+=+.Rows.Count+To+2+Step+-1
++++++++++++++++If+Not+CBool(Len(.Cells(rw,+"J")))+Then
++++++++++++++++++++With+.Rows(rw).Cells
++++++++++++++++++++++++.Copy
++++++++++++++++++++++++.Resize(2,+.Columns.Count).Insert+Shift:=xlDown
++++++++++++++++++++End+With
++++++++++++++++End+If
++++++++++++Next+rw
++++++++++++Application.CutCopyMode+=+False
++++++++End+With
++++End+With
End+Sub|code-block|syntax|javascript|1611443|将标题填充到数据的整个范围，从底部到顶部(在下一次声明中插入或删除行时建议在Range.CurrentRegion性质中插入或删除行)。|offset|length|1611444|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/en-us/library/5ebk1751.aspx|1|https://msdn.microsoft.com/en-us/library/office/ff196678.aspx^0|0|0|M|5|0|12|L|1|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|W|8|@]|9|@$I|X|J|Y|1|Z]|$I|10|J|11|1|12]]|A|$]]|$1|K|3|-4|5|6|7|13|8|@]|9|@]|A|$]]]|L|$M|$5|N|O|P|A|$Q|R]]|S|$5|N|O|P|A|$Q|T]]]]

If column A can be relied upon to show the extents of the rows to be processed then finding the last populated row in column A and working toward row 2 should cover all of the rows to be processed.

<pre><code>Sub add_Duplicate_Blank_Js()
 Dim rw As Long

 With Worksheets("Sheet4")
 With .Cells(1, 1).CurrentRegion
 For rw = .Rows.Count To 2 Step -1
 If Not CBool(Len(.Cells(rw, "J"))) Then
 With .Rows(rw).Cells
 .Copy
 .Resize(2, .Columns.Count).Insert Shift:=xlDown
 End With
 End If
 Next rw
 Application.CutCopyMode = False
 End With
 End With
End Sub
</code></pre>

With the titles across the first row and column A populated down to the full scope of the data, the above will walk backwards from the bottom to the top (recommended when inserting or deleting rows in a <a href="https://msdn.microsoft.com/en-us/library/5ebk1751.aspx" rel="nofollow">For Next Statement</a>) of the <a href="https://msdn.microsoft.com/en-us/library/office/ff196678.aspx" rel="nofollow">Range.CurrentRegion property</a>.

I've written a really rudimentary Excel macro to copy the selected row twice, then move the cursor down 3 rows so the process can be repeated again. 

So if I have a file where the first 10 rows all need to be repeated twice, I run the macro 10 times. 

This already saves me a bunch of keystrokes, but I'm sure it could be written better so I simply select the first 10 rows and then run the macro once. 

Here's what I have so far:

<pre><code>Sub Copy_Twice()
' Copies current row twice

 ActiveCell.EntireRow.Select
 Selection.Copy
 Selection.Insert Shift:=xlDown
 ActiveCell.EntireRow.Select
 Selection.Copy
 Selection.Insert Shift:=xlDown
 ActiveCell.Offset(rowOffset:=3).Select

End Sub
</code></pre>

For every file I run this macro, it may not be the first 10 rows to be copied. 

In fact an even better macro would be to copy every row twice if the cell in Column J is blank. 

Update: File has a header row with values for columns A to X. The rows to be copied will be the first x # of rows after the header where column J is blank. So in one example, rows 2-11 need to be duplicated twice. But in another file, it may be rows 2-21.

Copy selected rows twice

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我编写了一个非常基本的Excel宏，将选定的行复制两次，然后将光标向下移动3行，以便可以再次重复该过程。因此，如果我有一个文件，其中前10行都需要重复两次，我运行宏10次。这已经为我节省了一堆击键，但我确信它会写得更好，所以我只需选择前10行，然后运行宏一次。到目前为止，我的情况如下：Sub Copy_Twice()'...

问复制选定的行两次
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问复制选定的行两次EN