EXCEL中VBA编程问题

EXCEL中VBA编程问题

hello!

改：Range("c1") = Mid(j, i + 2, (k - i - 2))
第二句没理解是什么意思。
____________________________________________________________________
Sub jq()

Dim i, j, k, m, n, ra

ra = [a65536].End(3).Row

For m = 1 To ra

j = Cells(m, 1).Value

i = InStr(j, "DN")

k = InStr(i, j, "-")

Cells(m, 2).Value = Mid(j, i + 2, (k - i - 2))

Next m

End Sub

Sub jq()
Dim i, j, k
For i = 1 To 100
j = Cells(i, 2).Value
b = InStr(1, j, "N", 0)
k = Len(j)
If j Like "*" & dn & "*" Then Cells(i, 3) = Mid(j, b + 1, (k - b))
Next
End Sub

不清楚什么意思,可不可以举个实便,比如B1是什么,你要得到什么?
假设你是放在B列中
Sub jq()
Dim i, j, k, bi%
bi = 1
Do While Cells(bi, 2) <> ""
j = Cells(bi, 2)
i = InStr(1, j, "DN")
k = InStr(i, j, "-")
Cells(bi, 3) = Mid(j, i + 2, (k - i - 2))
bi = bi + 1
Loop
End Sub

sub zjh()
dim i%, mStr$
for i=1 to [b1].end(4).row
mstr=cstr(cells(i,2).value)
cells(i,3).value=MId(mstr,FIND("DN",mstr),FIND("-",mstr)-FIND("DN",mstr))
next i
end sub