数据都在第一张表上，目的：将每口井数据（相邻两列）和第一张表的前三列数据复制到新表中，一口井数据一个sheet。

Sub tm()
For i = 4 To 188 Step 2
wellname = Sheet1.Cells(1, i)
AddSh (wellname)
Sheets("Sheet1").Select
Range("A1").Select
Columns(i).Select
Selection.Copy

Sheets(wellname).Select
Range("D1").Select
ActiveSheet.Paste
Next
End Sub
Sub AddSh(ByVal sheetName As String)
Sheets("Sheet1").Select
Range("A1").Select
Worksheets(1).Columns("A:C").Select
Selection.Copy
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = sheetName
ActiveSheet.Paste
End Sub