需要帮助在Excel中使用宏分割行

Question

我有一张表，我试图进入特定的格式。目前，我的订单项都在同一行。这是当前版本与我在不同工作表上需要它的方式 - https://docs.google.com/spreadsheets/d/1CH_zI6Waky0YCcArCvjAa4x3YbEt8rMEbybZRI-dOoc/edit#gid=0

我的代码存在的问题是它为每个广告组创建了总共9行。它应该只有每个广告组3行。

Sub SplitAds()

Dim thissheet As Worksheet
Set thissheet = ActiveSheet

Sheets.Add
Dim newsheet As Worksheet
Set newsheet = ActiveSheet

'Copy Headers
thissheet.Range("A1").EntireRow.Copy
newsheet.Range("A1").PasteSpecial (xlPasteValues)

Dim newrow As Long
For x = 0 To thissheet.Range("A65535").End(xlUp).Row

thissheet.Range("A2:C2").Offset(x, 0).Copy
'Copy & Paste A:C
newsheet.Range("A2").Offset(newrow, 0).PasteSpecial (xlPasteValues)
newsheet.Range("A2").Offset(newrow + 1, 0).PasteSpecial (xlPasteValues)
newsheet.Range("A2").Offset(newrow + 2, 0).PasteSpecial (xlPasteValues)
'Set Type
newsheet.Range("L2").Offset(newrow, 0).Value = thissheet.Range("L2").Offset(x, 0).Value
newsheet.Range("L2").Offset(newrow + 1, 0).Value = thissheet.Range("L2").Offset(x, 0).Value
newsheet.Range("L2").Offset(newrow + 2, 0).Value = thissheet.Range("L2").Offset(x, 0).Value
'Set D:J on 2nd
thissheet.Range("D2:J2").Offset(x, 0).Copy
newsheet.Range("D2").Offset(newrow + 1, 0).PasteSpecial (xlPasteValues)
'Set Keyword on 3rd
newsheet.Range("K2").Offset(newrow + 2, 0).Value = thissheet.Range("K2").Offset(x, 0).Value

newrow = newrow + 3
Next

End Sub

非常感谢任何帮助。谢谢！

Answer 1

我认为您的问题是您一次增加一行，而newrow一次增加三行。因此，您将为每个行创建三行。

您可以通过step 3循环中的for或将for更改为while然后手动递增3来解决此问题你使用newrows：

Sub SplitAds()

  Dim thissheet, newsheet As Worksheet
  Set thissheet = ActiveSheet
  Set newsheet = Sheets.Add
  Dim x, maxRow, newrow As Long

  'Copy Headers
  thissheet.Range("A1").EntireRow.Copy
  newsheet.Range("A1").PasteSpecial (xlPasteValues)

  maxRow = thissheet.Range("A65535").End(xlUp).Row - 1

  While x < maxRow

    thissheet.Range("A2:C2").Offset(x, 0).Copy
    'Copy & Paste A:C
    newsheet.Range("A2").Offset(newrow, 0).PasteSpecial (xlPasteValues)
    newsheet.Range("A2").Offset(newrow + 1, 0).PasteSpecial (xlPasteValues)
    newsheet.Range("A2").Offset(newrow + 2, 0).PasteSpecial (xlPasteValues)
    'Set Type
    newsheet.Range("L2").Offset(newrow, 0).Value = thissheet.Range("L2").Offset(x, 0).Value
    newsheet.Range("L2").Offset(newrow + 1, 0).Value = thissheet.Range("L2").Offset(x, 0).Value
    newsheet.Range("L2").Offset(newrow + 2, 0).Value = thissheet.Range("L2").Offset(x, 0).Value
    'Set D:J on 2nd
    thissheet.Range("D2:J2").Offset(x, 0).Copy
    newsheet.Range("D2").Offset(newrow + 1, 0).PasteSpecial (xlPasteValues)
    'Set Keyword on 3rd
    newsheet.Range("K2").Offset(newrow + 2, 0).Value = thissheet.Range("K2").Offset(x, 0).Value

    x = x + 3
    newrow = newrow + 3
  Wend

End Sub