![如何使用excel进行行列转换?](https://linux22.com/image/1368447/%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8excel%E8%BF%9B%E8%A1%8C%E8%A1%8C%E5%88%97%E8%BD%AC%E6%8D%A2%EF%BC%9F.png)
我还有很多数据需要处理,但情况如下图所示
请指导我
答案1
好吧,11 行而不是 5 行,但对我来说已经足够接近了 ;)
- 将光标放在需要新值的列中
- 将宏插入到 VBA 编辑器中的某个位置(Alt+ F11)
- 执行宏 ( F5)
- 用表格的正确范围回答 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 或变量声明这样的调整。