gpt4 book ai didi

excel - 如何使用宏复制每一行

转载 作者:行者123 更新时间:2023-12-04 21:42:09 25 4
gpt4 key购买 nike

我有 N+1 行的 excel 表,其中 A 列的唯一 ID 为 N。

我需要复制每一行,以便在第 N 行下方会有三个具有唯一 ID N-b、N-c、N-d 的新行

例如样本输入行:

id1    data here 
id2 data2 here

例如样本输出:
id1    data here 
id1-b data here
id1-c data here
id1-d data here
id2 data2 here
id2-b data2 here
id2-c data2 here
id2-d data2 here

最佳答案

你可以试试这样的

Sub Macro1()
Dim sheet As Worksheet
Dim usedRange As Range

Set sheet = ActiveSheet
Set usedRange = sheet.usedRange

Dim i As Integer

For i = 1 To usedRange.Rows.Count
Dim row As Range
Set row = usedRange.Rows(((i - 1) * 4) + 1)

Dim iCopy As Integer

For iCopy = 1 To 3
row.Copy
Dim insertRow As Range
Set insertRow = usedRange.Rows(((i - 1) * 4) + 1 + iCopy)
insertRow.insert xlDown
Dim copiedRow As Range
Set copiedRow = usedRange.Rows(((i - 1) * 4) + 1 + iCopy)
copiedRow.Cells(1, 1) = copiedRow.Cells(1, 1) & "-" & Chr(97 + iCopy)

Next iCopy
Next i
End Sub

关于excel - 如何使用宏复制每一行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2108632/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com