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

1020900500 · 发表于 2018-1-22 23:47:21

鹅鹅鹅鹅鹅鹅

zhaopf · 发表于 2018-5-22 17:40:46

'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 · 发表于 2018-6-6 12:42:48

多少钱

yzli007 · 发表于 2020-2-19 14:11:29

支持啊啊啊

恋爱百分100 · 发表于 2020-8-12 22:19:24

rayli · 发表于 2021-3-4 21:18:50

学习学习！！！

玢络 · 发表于 2021-6-19 11:02:20

学习一下

qkx6670 · 发表于 2021-11-3 20:12:06

谢谢

gaoshan_0721 · 发表于 2021-11-26 09:47:26

学习一下

Hi刻虎 · 发表于 2021-12-27 18:49:33

看看看看看

		自动登录	找回密码
密码			欢迎注册

[其他l软件] 文本/Excel数据对比/去重复多功能软件