vba代码.txt（快速生成井表，给排水设计师的福音）

Sub 井表制作()

Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "井表"
 
 
 With Columns("A:A")
    .EntireColumn.Hidden = False
    .ColumnWidth = 14
    End With
    Cells.Select
    Selection.ColumnWidth = 18
    
    Columns("A:Z").Select
    Selection.HorizontalAlignment = xlHAlignCenter
    
    Range("a1").Select
    Selection.Formula = "井编号"
    
     Range("a2").Select
    Selection.Formula = "简图"
    Rows("2:2").Select
    Selection.RowHeight = 80
    
    
     Range("a3").Select
    Selection.Formula = "平面尺寸（mm）"
    Range("a5").Select
    Selection.Formula = "井顶标高（mm）"
    

     Range("a5").Select
    Selection.Formula = "井顶标高（mm）"
     
     Range("a4").Select
    Selection.Formula = "地面标高（mm）"
    
     Range("a6:a8").Select
     With Selection
      .Merge across:=False
      .HorizontalAlignment = xlHAlignCenter
      End With
      
      
     Range("a6").Formula = "管底标高（mm）"
    
     Range("a9").Select
    Selection.Formula = "井底标高（mm）"
    
    
    Range("a10").Select
    Selection.Formula = "井深（m）"
    
    Range("a11").Select
    Selection.Formula = "井盖及盖座"
    
     Range("a12").Select
    Selection.Formula = "图号"
    
    With Sheets("sheet1")
    Dim i As Integer