数据都在第一张表上,目的:将每口井数据(相邻两列)和第一张表的前三列数据复制到新表中,一口井数据一个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