根據單元自動添加列

Question

我有一個問題，我有50米長的軌道對齊。我可以根據空間分配對齊，例如我每10米分配一次對齊到列。看起來像這樣;

Column A: Column B: Column C: Column D: Column E:  Column F: 
0   10    20   30   40   50 

此外，我有位置的鐵路變量。我希望將每10米空間的50米長對準線分配到列中，並且我希望將軌道位置添加到21米。看起來像這樣。

Column A: Column B: Column C: Column D: Column E:  Column F: Column G: 
    0   10    20   21   30   40   50 

我的意思是，當我進入軌到該單元的位置的值，EXCEL必須控制值，並添加新的列，如果在Excel工作表是不存在的。 。看起來像上面。

有沒有可能這樣做？提前致謝！

Answer 1

您沒有提及輸入數據的位置。如果您輸入以前的數據的數據結束，然後使用以下的子。

Sub AddColumn() 
Dim LastClmn 
LastClmn = Range("A1").End(xlToRight).Address 

    Range("A1:" & LastClmn).Select 
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:" & LastClmn), _ 
     SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
    With ActiveWorkbook.Worksheets("Sheet1").Sort 
     .SetRange Range("A1:" & LastClmn) 
     .Header = xlGuess 
     .MatchCase = False 
     .Orientation = xlLeftToRight 
     .SortMethod = xlPinYin 
     .Apply 
    End With 
End Sub 

（1）現有的數據

（2）添加新的數據

（3）運行子後（我用命令按鈕）。