excel - 使用引用 Excel VBA 将单行转换为单列

Question

问题:
我经常需要将一行引用到一列(使用 =Cell)。当我需要对多行执行此操作时，我只需使用 Ctrl+Shift+Enter。但这很烦人，因为当我想编辑某些内容时出现错误:“您无法更改数组的一部分”。

解释预期结果:
我想选择没有标题的单行范围。

Dim cRangeColumn As Range
Set cRangeColumn = Application.InputBox("Please choose a range", "Specify Range", Type:=8)

按“确定”后，它应该让我选择放置行的位置(与列转置的单行) - 让程序知道从哪里开始的单元格地址

同样，这可以通过

Dim rRangeRow As Range
Set rRangeRow = Application.InputBox("Please choose a range", "Specify Range", Type:=8)

我面临的问题:
如何访问范围内的值

逻辑:

我得到了列的范围 - 比如说 $E$29:$E$37 - 总计 9 个值

我选择转置列(一行)的起始地址，比如说Sheet226!$G$14

程序开始写="$E$29 to the starting address "Sheet226!$G$14" ， 然后写
直到 $E$37是见面。每次写入时，偏移 1 列。

Answer 1

在海里游泳后，我能够完成这项工作



我尝试使用“”，但看起来不太好。所以我拍摄了代码的快照。它不长。我希望它不打扰。