Question

嗨我有一个excel文档，其中的单元格像这样展开：

A * *
B E *
C F *
D G *

我需要将这个添加到像这样的单元格A ** BE * CF * DG *

我无法使用此公式

=A1&B1&C1&A2&B2&C2&A3&B3&C3&A4&B4&C4

我需要找到一个更短的方式来做这个任何建议将不胜感激我已经在VBA开始了这个：

Sub com()
    Dim x
    Set x = Range("A1:A4", "B1:B4", "C1:C4")
End Sub

我对此没有经验，如果有人可以帮助我如何将其输出到msgbox或以基本方式将其放入单元格中，我将非常感激。谢谢

Answer 1

这应该让你开始：

Sub com()

    Dim lRow As Long
    Dim lCol As Long
    Dim sOutput as String

    For lRow = 1 to 4 'Change start and end rows as necessary
        For lCol =  Columns("A").Column to Columns("C").Column 'Change start and end columns as necessary
            sOutput = sOutput & Cells(lRow, lCol).Text
        Next lCol
    Next lRow

    MsgBox sOutput

End Sub

Answer 2

如果没有VBA，请在顶部添加一个空行，然后在D2中复制下来：

=D1&A2&B2&C2

Excel缩短公式

2 个答案: