如何使用excel进行行列转换？

Question

我还有很多数据需要处理，但情况如下图所示

请指导我

Answer 1

好吧，11 行而不是 5 行，但对我来说已经足够接近了 ;)

1. 将光标放在需要新值的列中
2. 将宏插入到 VBA 编辑器中的某个位置（Alt+ F11）
3. 执行宏 ( F5)
4. 用表格的正确范围回答 inputbux。在您的示例中：“A2:C9”

---

Sub mergeColumns()

    strTable = InputBox("Please enter the range of your table" & vbNewLine & "Example: A1:C4", "Select your table")
    arrTable = Range(strTable)

    For Each cell In arrTable
        i = i + 1
        ActiveCell.Offset(i, 0) = cell
    Next

End Sub

这只是一个概念证明，没有像 ScreenUpdating、ErrorHandling 或变量声明这样的调整。