用Surfer建立井位图
1、 先创建excel文件，包含井名、井位坐标。（标题全为字母，不能有中文）
2、打开surfer，新建空白文档。
3、地图→张贴图→新建张贴图→打开相应xls。
4、在出现的图框点击右键→属性→各种设置。
5、应用→确定→出图。
Over

快速批量更改文件名（井名）
1、生成文件列表（ls.txt）。
2、拷贝到excel文件。 A列
3、在UE理通过替换功能把井名改写规范。
4、把改写规范的井名拷贝到excel B列
5、Rename。 C列
6、=C1&”（空格）（空格）”&A1&”(空格)(空格)”&B1 D列
7、将D列拷到UE里保存为XXX.bat。
Over

dos环境中，在文件目录下，可以用dir/a/b（空格）*>ls.txt命令生成文件名列表

测井曲线标准化
1.寻找标准层——分布稳定，测井响应特征标志明显，砂泥岩剖面一般用泥岩层，碳酸盐岩剖面用膏盐层。
2.在井位图上根据地质构造找到标准井，画出连井剖面（横纵各两条）
3.在标准井上卡准标准层的层位，导出逐点数据。
4.做出各曲线的频率分布直方图，并计算其峰值。
5.根据标准井的频率分布直方图对每口井的标准层逐一进行校正。
6.得出测井曲线标准化成果表。

forward导出解释结论添加小层数据宏程序
循环优化过，窜层处留空白，人工修改
解释结论与分层数据放同一个excel，sheet1和sheet2，均需要按照井名排序（排序类型相同即可）


测试后数据响应良好，无错！
Public Sub Main()
Dim iRow1, iRow2 As IntegerWith ThisWorkbook.Sheets(1)
iRow1 = .Range("A" & Rows.Count).End(xlUp).Row
Dim i1, i2, j2 As Integer '控制变量
Dim Well1, Well2 As String
Dim Sdep1, Edep1, Sdep2, Edep2 As Double '深度
Dim SecName As String '层号
iRow2 = ThisWorkbook.Sheets(2).Range("A" & Rows.Count).End(xlUp).Row
iCol2 = 15
Dim x As Integer
x = 2
For i1 = 2 To iRow1
Well1 = UCase(Trim(.Cells(i1, 2).Value))
Sdep1 = Val(Trim(.Cells(i1, 4).Value))
Edep1 = Val(Trim(.Cells(i1, 5).Value))
For i2 = x To iRow2
Well2 = UCase(Trim(ThisWorkbook.Sheets(2).Cells(i2, 1).Value))
If Well1 = Well2 Then
For j2 = 2 To iCol2
Sdep2 = Val(Trim(ThisWorkbook.Sheets(2).Cells(i2, j2).Value))
Edep2 = Val(Trim(ThisWorkbook.Sheets(2).Cells(i2, j2 + 1).Value))
SecName = Trim(ThisWorkbook.Sheets(2).Cells(1, j2 + 1).Value)
If Sdep1 >= Sdep2 And Edep1 <= Edep2 Then
.Cells(i1, 7).Value = SecName
x = i2
'Exit For
End If
Next j2
End If
Next i2
Next i1
End With
End Sub


基于office2007
【二元线性回归公式】
1、文件→Excel选项→加载项→转到→把分析工具库和VBA勾选上
2、选中数据，数据→数据分析→回归→确定。
Y=AX1+BX2+C
A→X Varible1
B→X Varible2
C→Intercept
【二元非线性回归公式】（原则：由线性变非线性）
Y=AX1+BX2+C
令Z=lgY，T1=lgX1，T2=lgX2
由①→Z1=A*T1+B*T2+C
即：lgY=AlgX1+BlgX2+C→10^（lgY）=10^（AlgX1+BlgX2+C）
→10^（lgY）=10^(AlgX1)*10^(lgX2)*10^(C)
Y=X1^(A)*X2^(B)*10^(C)
步骤：
1、把X1，X2，Y分别以10为底数取对数。
2、再把取对数后的X1'、X2'、Y1’按线性回归求出X Varible1，X Varible2，Intercept
→Y=X1^(A)*X2^(B)*10^(C)
A→X Varible1
B→X Varible2
C→Intercept