0
A
回答
1
如果您在模块中复制下面的代码,它应该按照您的要求进行操作(确保包含您的数据的表单是活动表单)。存在用于数据的有效性没有检查 - 它假定:
- 与数据片材是活动片,
- 有在列A
数据,并将其结果输出在B列。
Option Explicit
Public Sub doIt()
Dim data As Variant
Dim result As Variant
Dim i As Long
Dim j As Long
data = ActiveSheet.UsedRange
ReDim result(1 To UBound(data, 1), 1 To 1) As Variant
j = 1
For i = 1 To UBound(data, 1)
If data(i, 1) = "" Then
j = j + 1
Else
result(j, 1) = result(j, 1) & data(i, 1)
End If
Next i
With ActiveSheet
.Cells(1, 2).Resize(UBound(result, 1), 1) = result
End With
End Sub
1
我的做法,采用区域()方法,完美的,因为你的数据组由空白单元格分隔。
Option Explicit
Sub ColumnToRows()
Dim RNG As Range, a As Long
Set RNG = Range("A:A").SpecialCells(xlConstants)
For a = 1 To RNG.Areas.Count
RNG.Areas(a).Copy
Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteAll, Transpose:=True
Next a
Application.CutCopyMode = False
End Sub
如果A列是不是满的常量,您可以更改到xlFormulas。
相关问题
- 1. 合并表列单细胞
- 2. Pygame:细胞合并回来
- 3. 如何合并两种细胞在一个细胞
- 4. 需要两列在Excel比较,并把多个参考成单细胞
- 5. REGEXEXTRACT多行一个细胞
- 6. 串联换行单细胞
- 7. 单细胞之和空白细胞
- 8. 结合细胞以形成式
- 9. 合并数据网格细胞
- 10. 合并wx.Grid中的adiacent细胞
- 11. 细胞阵列
- 12. LibreOffice的计算器 - 生成列表,多列或细胞的组合范围
- 13. wxGrid单细胞结合事件
- 14. 合并一些细胞取决于某些单元格值
- 15. VBA合并单元格和**第二细胞
- 16. JSON阵列分成的tableView细胞
- 17. 合并多个行的值成单
- 18. 问题与多行合并成单排
- 19. 更新列细胞%
- 20. 的Python /大熊猫 - 合并列具有相同指数单细胞
- 21. OfficeOpenXML Excel中调整行与细胞穿过它们合并
- 22. 通过阵列中的多个细胞
- 23. 合并多列单列
- 24. 进入编辑模式,单列/细胞
- 25. 变换行细胞
- 26. 萨姆混合列在R:总和整数细胞,串连字符细胞
- 27. 宏细胞,多行文字截断
- 28. 的ListView /在细胞多行的DataGrid
- 29. 获取的多个值,选择根据另一列,成单细胞
- 30. Excel宏 - 逗号分隔细胞对行保留/聚合列
Transpose在这种情况下效果不好,因为我有超过500k个单元格与该列中的空单元格分隔,并且需要在每个空单元格之后变成行。 – knarusk 2012-03-27 20:49:03
只使用Excel,您必须复制每一个字母块,然后您需要每次都将它们与转置粘贴。我不认为这可以在不使用宏的情况下一步完成。 – 2012-03-27 20:44:42
太多的单元格使用转置所以是的,那么需要一个宏。 – knarusk 2012-03-27 20:52:06