小编use*_*522的帖子

如果您在一个季度1,2,3的第一个月,第二个月或第三个月出现问题,那么excel中是否有一个函数可以帮助您解决问题？

我在VBA蹒跚学步

我有一个很大的范围,这可能超过1000个文本值(这可能会下降A1),我试图将所有值与引号和逗号连接到一个单元格(C1),我知道转置公式,但我是不确定我的vba数组会将其识别为列表.

我渴望我的数组公式将c1识别为列表,以便执行我的操作.

我真的很想保持干净,不要使用连接并拖下各种公式.

我遇到过这个,但这并没有将所有值都粘贴到一个单元格中.

Sub transpose()
Dim rng As Range
Dim ws As Worksheet
Dim last As Range

Set ws = ActiveSheet   
Set last = ws.Cells(Rows.Count, "A").End(xlUp)
Set rng = ws.Range("A1", last)

For Each cell In rng
    Dim hold As String
    hold = """"
    hold = hold + cell.Value
    hold = hold + """" + ", "
    cell.Value = hold
Next cell

rng.Copy
ActiveWorkbook.Sheets(2).Range("A1").PasteSpecial transpose:=True
End Sub

代码由ryan E完成

如果有人可以在阵列的收集清单上建议任何作弊,这将是伟大的.除了在Excel中使用宏工具

例.

A1 = company1 A2 = company2等

解

C1将在一个单元格中显示"company1","company2",...."company10000"