Excel VBA剪贴板字符串比对失效及列自定义排序问题咨询

问题1：VBA校验列名不弹出提示框问题排查 #

问题原因 #

Excel复制单元格内容到剪贴板时，会默认在末尾追加回车换行符（vbCrLf），你读取到的Mystring实际值为"User Name" & vbCrLf，和目标字符串直接比对自然不匹配，这是该问题的核心诱因。

解决方案 #

方案1：放弃剪贴板方案，直接读取单元格值（更稳定高效，无额外依赖）

Sub macro1()
    If Range("A1").Value = "User Name" Then
        MsgBox "Correct column"
    End If
End Sub

方案2：如果必须使用剪贴板，先清除字符串内的不可见控制字符再比对

Sub macro1()
    Dim Mystring As String
    Dim DataObj As New MSForms.DataObject
    Range("A1").Copy
    DataObj.GetFromClipboard
    Mystring = DataObj.GetText
    ' 清除末尾的回车换行符
    Mystring = Replace(Replace(Mystring, vbCr, ""), vbLf, "")
    If Mystring = "User Name" Then
        MsgBox "Correct column"
    End If
End Sub

注：如果运行提示用户类型未定义，需要在VBA编辑器的「工具-引用」中勾选Microsoft Forms 2.0 Object Library即可

问题2：Excel列自定义重排序实现方法 #

方法1：手动操作（适合单次调整） #

• 单列调整：按住Shift键，点击需要移动的列的列标，拖动列边框到目标位置后松开即可，整列数据会同步移动，按需求依次调整即可。
• 批量快速调整：
  1. 在表头上方插入一行辅助行，按照你想要的最终顺序给对应列标注序号，比如你要调整为C、A、B、G、E、F、D，就给C列填1，A列填2，B列填3，G列填4，E列填5，F列填6，D列填7
  2. 全选所有数据区域，点击「数据」选项卡下的「排序」，设置排序依据为「行1」，次序为「升序」，勾选「数据包含标题」
  3. 排序完成后删除辅助行即可完成所有列的批量重排

方法2：VBA实现（适合多次重复调整场景） #

Sub 自定义列重排序()
    ' 按你需要的最终顺序填写列标，注意和实际需求对应
    Dim 排序顺序 As Variant
    排序顺序 = Array("C", "A", "B", "G", "E", "F", "D")
    Dim i As Integer
    ' 从左到右依次插入对应列
    For i = LBound(排序顺序) To UBound(排序顺序)
        Columns(排序顺序(i)).Cut
        Columns(i + 1).Insert Shift:=xlToRight
    Next i
    Application.CutCopyMode = False
End Sub

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