修改Excel宏输入框：自定义数据起始列（固定M:AF范围）

以下是满足需求的宏代码，已针对起始列选择、输出范围限制做了优化：

Sub Rw_to_col()
    ' Rows_to_columns Makro - 适配需求：选择数据起始列，输出固定至M:AF列
    Dim xRow As Long, xCol As Long, nextRow As Long
    Dim StepValue As Integer
    Dim startColInput As Variant
    Dim validCol As Boolean
    
    nextRow = 3
    validCol = False
    
    ' 获取并验证数据起始列（限定M-AF，对应列号13至32）
    Do While Not validCol
        startColInput = InputBox("请输入数据起始列的列标（如A、M等），范围仅限M至AF", "选择起始列")
        If startColInput = "" Then Exit Sub ' 用户取消操作则退出
        
        On Error Resume Next
        xCol = Columns(startColInput).Column
        On Error GoTo 0
        
        If xCol >= 13 And xCol <= 32 Then
            validCol = True
        Else
            MsgBox "输入的列超出范围，请选择M至AF之间的列！", vbExclamation
        End If
    Loop
    
    ' 设置每行转换后的列数，校验不超过M:AF的列数上限（20列）
    Do
        StepValue = InputBox("设置每行转换后的列数（最大20，对应M:AF的列数）", "设置列数")
        If StepValue = "" Then Exit Sub ' 用户取消则退出
        
        If StepValue < 1 Or StepValue > 20 Then
            MsgBox "列数需在1-20之间！", vbExclamation
        Else
            Exit Do
        End If
    Loop
    
    ' 自动获取起始列的有效数据总行数，无需手动选择区域
    xRow = Cells(Rows.Count, xCol).End(xlUp).Row
    
    For i = 1 To xRow Step StepValue
        ' 复制目标数据段
        Cells(i, xCol).Resize(StepValue).Copy
        ' 转置粘贴到M列起始的对应行
        Cells(nextRow, 13).PasteSpecial Transpose:=True
        nextRow = nextRow + 1
    Next i
    
    Application.CutCopyMode = False ' 清除剪贴板复制状态
End Sub

关键改动说明 #

• 起始列校验：强制用户选择M（第13列）到AF（第32列）之间的列作为数据源起始列，输入不符合则弹窗提示重新输入
• 输出范围锁定：转置后的结果固定从M列开始输出，行号从第3行依次往下，严格限制在M:AF的列区间内
• 数据源自动识别：不再依赖手动选择区域，自动获取起始列的最后一行有效数据，操作更便捷
• 输入合法性校验：对每行列数设置上限（20列，对应M:AF的总列数），避免输出超出指定范围
• 体验优化：添加取消输入时的退出逻辑，操作完成后清除剪贴板状态

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