sheet1中是所有井数据放一起的,目的是将单口井的数据放一张表上,每口井一个表,表名是第一列井名。
- Sub tm()
- wellname1 = ""
- For i = 1 To 3331
- wellname2 = Sheet1.Cells(i, 1)
- bb = Sheet1.Cells(i, 2)
- cc = Sheet1.Cells(i, 3)
-
- If wellname2 <> wellname1 Then
- wellname1 = wellname2
- j = 1
- AddSh (wellname1)
- Worksheets(Worksheets.Count).Cells(j, 1) = wellname1
- Worksheets(Worksheets.Count).Cells(j, 2) = bb
- Worksheets(Worksheets.Count).Cells(j, 3) = cc
- Else
- j = j + 1
- Worksheets(Worksheets.Count).Cells(j, 1) = wellname1
- Worksheets(Worksheets.Count).Cells(j, 2) = bb
- Worksheets(Worksheets.Count).Cells(j, 3) = cc
- End If
- Next
- End Sub
- Sub AddSh(ByVal sheetName As String)
- Worksheets.Add after:=Worksheets(Worksheets.Count)
- Worksheets(Worksheets.Count).Name = sheetName
- End Sub