用VBA 生成新的一列，求出其前4位，隐藏原始列。
*** 在工作页面（例如：sheet1）内加个“命令按钮”其代码如下：
Private Sub CommandButton1_Click()
Macro1
End Sub
'****** 模块代码如下：
Sub Macro1()
MM = "A"
XX = InputBox("请输入要改变显示为前四位数的列号，" & vbCrLf & vbCrLf & "例如:要选择A列，请输入“A”", "列号输入对话框", MM)
If Len(XX) = 0 Then Exit Sub
If Len(XX) <> 0 Then
NN = XX & ":" & XX
Columns(NN).Select
WW = ActiveCell.Column
Columns(WW + 1).Select
Selection.Insert Shift:=xlToLeft
Cells(1, WW + 1).Select
For I = 1 To 65535
If Len(Cells(I, WW).Value) = 0 Then
Columns(NN).Select
Selection.EntireColumn.Hidden = True
Cells(1, WW + 1).Select
MsgBox "转换完成，原始数据在【" & XX & "】列并已经隐藏 ！", 64, "SIR007_001 提示"
Exit Sub
ElseIf Len(Cells(I, WW).Value) <> 0 Then
Cells(I, WW + 1).Select
Cells(I, WW + 1).Value = Left(Cells(I, WW).Value, 4)
End If
Next I
End If
End Sub
温馨提示：答案为网友推荐，仅供参考