代码无效

microyip

lingning1001 发表于 2018-9-13 15:58
设定了五个，但是选择4个或者少几列，就会有问题

那就不知道你实际操作是怎样的，反正起码我自己写的代码感觉操作起来就没什么问题，况且也没附件

山菊花

lingning1001 发表于 2018-9-13 16:04
把cells前面的.去掉可以用，但是设定5个，如果选择4个或者4个以下就会出错

那个点可以不要的原因是前面有了.Activate，你可以不写它，但它不是多余的，写上它不是一个错误。如果把.Activate写在后面，这个点就显得重要多了。
如果列数不确定，可以这样改：

1. Private Sub 新建分数据库_Click()
   
2.      Dim m As Integer, n%, Rng As Range
   
3.      With Sheets("基本数据库")
   
4.          Do
   
5.             n = n + 1
   
6.             m = Application.InputBox("请输入第" & n & "列的列号，点击取消结束输入。", Type:=1)
   
7.             If m = 0 Then Exit Do
   
8.             If Rng Is Nothing Then
   
9.                 Set Rng = .Cells(1, m)
   
10.             Else
    
11.                 Set Rng = Union(Rng, .Cells(1, m))
    
12.             End If
    
13.          Loop
    
14.          If Rng Is Nothing Then Exit Sub
    
15.          .Activate
    
16.          Rng.EntireColumn.Select
    
17.      End With
    
18. End Sub

复制代码