文本/Excel数据对比/去重复多功能软件

1020900500

鹅鹅鹅鹅鹅鹅

zhaopf

'WELLNAME   DATE    EVENT       LAYER    TOP     BOTTOM    WELLDIA  SKIN  kh  TABLE_NO  BHP
'1          2\3\4     5          6\7      8         9       10       11   12    13       14

Private Sub CommandButton1_Click()
Dim i, j, k As Integer


Open "C:\Perforation.EV" For Output As #1

k = 2
Print #1, "WELLNAME", ActiveSheet.Cells(k, 1)

Do While ActiveSheet.Cells(k, 1) <> ""
   If ActiveSheet.Cells(k, 1) <> ActiveSheet.Cells(k + 1, 1) Then
      Print #1, ActiveSheet.Cells(k, 2) & "." & ActiveSheet.Cells(k, 3) & "." & ActiveSheet.Cells(k, 4), ActiveSheet.Cells(k, 5), "(" & ActiveSheet.Cells(k, 6) & "-" & ActiveSheet.Cells(k, 7) & ")", "2*", ActiveSheet.Cells(k, 10), ActiveSheet.Cells(k, 11), ActiveSheet.Cells(k, 12), ActiveSheet.Cells(k, 13), ActiveSheet.Cells(k, 14)
      Print #1, "WELLNAME", ActiveSheet.Cells(k + 1, 1)
   Else
      Print #1, ActiveSheet.Cells(k, 2) & "." & ActiveSheet.Cells(k, 3) & "." & ActiveSheet.Cells(k, 4), ActiveSheet.Cells(k, 5), "(" & ActiveSheet.Cells(k, 6) & "-" & ActiveSheet.Cells(k, 7) & ")", "2*", ActiveSheet.Cells(k, 10), ActiveSheet.Cells(k, 11), ActiveSheet.Cells(k, 12), ActiveSheet.Cells(k, 13), ActiveSheet.Cells(k, 14)
   End If


   k = k + 1
Loop

MsgBox "已经生成*.EV for SCH 文件！"

Close #1

End Sub

zhaolibin2002

多少钱

yzli007

支持啊啊啊

恋爱百分100

rayli

学习学习！！！

玢络

学习一下

qkx6670

谢谢

gaoshan_0721

学习一下

Hi刻虎

看看看看看