<em>excel</em> <em>vba</em>问题

使用函来数
COLUMNS(colr(i) & ":" & colr(j))

Function CoLr(ColNumber As Integer) As String
'返回源列数字的英文zd字母
On Error GoTo Errorhandler
CoLr = Split(Cells(1, ColNumber).Address, "$")(1)
Exit Function
Errorhandler:
MsgBox "Error encountered, please re-enter "
End Function

sub myCal()
On Error GoTo myflag

if rang("C1").value=0 then
msgbox "C1单元格zd为0，禁止内计容算！"
else
range("D1").value=range("A1").value+range("B1").value
end if

exit sub
my flag:
msgbox err.Description
err.clear
end sub
在程序是这样显示的，赋值到单元格就正常了，不影响的。

以前谢了百一个模块度来实现问这种答，给你内瞧瞧

Sub test()

Dim xx

ge = "j,k|容n,o|r,s|v,w"

xx = Text2arr(ge, "|", ",")
End Sub

Function Text2arr(ByVal sStr As String, cChr1, cChr2) As Variant
Dim tmpArr, Text2arr2, i As Double
tmpArr = Split(sStr, cChr1)
ReDim Text2arr2(UBound(tmpArr))
For i = 0 To UBound(tmpArr)

Text2arr2(i) = Split(tmpArr(i), cChr2)

Next
Text2arr = Text2arr2
End Function