如何转置行值（忽略空格）

Question

我试图编写一个代码，为每个帐户提取产品并将其放入“产品摘要”列。

例如，对于C2＆＃39; XYZ Inc＆＃39;他们的产品是widget1（H2）widget2（I2）和widget4（K2）。 我想将这些值（忽略空格）转换为G列。 因此，单元格G2将具有产品widget1，单元格G3将具有widget2，而单元格G4将具有widget4。

同样适用于C5公司。

是否可以使用VBA进行编码？

这是我找到的东西，但我收到编译错误＆＃34;无效的外部程序＆＃34;

Sub RowTranspose()
Dim c As Range, v

'find last-used cell in ColG
Set c = Cells(Rows.Count, "G").End(xlUp)

With c.Offset(-3, 0)
    v = .Resize(4, 1).Value
    .Resize(4, 1).ClearContents 
    .Resize(1, 4).Value = Application.Transpose(v)
End With
End Sub

Answer 1

Stackoverflow不是用户为您编写代码的网站，您无需付出一些努力。但是，我可以给你一个关于你的程序应该做什么的逻辑大纲。如果您编写代码并将其添加到原始问题中，我们可以为您提供进一步的帮助。

• 定义变量
• 对于您希望与之合作的每家公司：
  • 扫描行。如果单元格中有值，请将值添加到数组中。如果没有，请跳过。
  • 将String数组中的项目复制到所需的列，一次一个单元格。

关于它。可能有一百万种其他方法可以做到这一点，效率更高，但这是一种直观的方式。