如何编写适配用户动态选中单元格的Excel宏实现区域转置？

录制宏生成的代码之所以只能操作固定区域，本质是它会把录制当时选中的单元格地址硬编码（比如写死Range("A1:A5").Select），根本不会关联用户后续运行宏时的实时选择状态。
只要用VBA内置的Selection对象替代这些硬编码的单元格地址，宏就会自动识别用户运行时当前高亮选中的任意单元格范围，完全不需要预先指定固定区域。

把下面的代码粘到VBA模块里，运行前先选中你需要操作的竖排单元格，宏会自动读取你的选中范围完成转置：

Sub 选中区域动态转置()
    ' 关闭屏幕刷新，避免运行时界面闪屏、提升速度
    Application.ScreenUpdating = False
    
    ' 兜底判断：如果用户没选中单元格（比如选了图表、形状），直接弹出提示退出
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中需要转置的单元格区域再运行宏", vbInformation
        GoTo RestoreSettings
    End If
    
    ' 直接绑定用户当前的选中区域，不需要写任何固定单元格地址
    Dim srcRng As Range
    Set srcRng = Selection
    
    ' 转置输出：默认把结果放到原区域右侧相邻的位置，避免原区域和输出区域形状不匹配导致粘贴报错
    Dim outRng As Range
    Set outRng = srcRng.Offset(0, srcRng.Columns.Count + 1).Cells(1, 1)
    
    ' 执行带格式的转置粘贴，效果和Excel内置转置完全一致
    srcRng.Copy
    outRng.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    
    Application.CutCopyMode = False
    MsgBox "转置完成，结果已输出到原区域右侧位置", vbInformation

RestoreSettings:
    ' 恢复Excel默认设置，避免后续操作受影响
    Application.ScreenUpdating = True
End Sub

• 如果不需要保留单元格格式，只转内容，可以把Copy和PasteSpecial的部分换成数组读写，运行速度会比逐单元格粘贴快几十倍，尤其适合处理大区域数据
• 要是想自定义结果的输出位置，可以加一行代码让用户手动点选输出的起始单元格，替代代码里默认的右侧偏移位置
• 代码自带判断逻辑，不管用户选的是竖排1到5的短区域、还是跨几十行的长竖排区域，都能正确识别转置，不会出现范围不匹配的问题

内容的提问来源于stack exchange，提问作者FoxSeL