谁来帮我解决这个VBA的简单问题！要是谁能在今天上午解决，我送500分！

[jackhu]

在Excel中列为A B C D E.......
给你一个列字符串strCol和一个整数nData,nData是strCol向右移动的列数，如何strCol转到对应列。
譬如：strCol="C", nData=0, 则结果为strCol="C"
strCol="C", nData=1, 则结果为strCol="D"
strCol="AC", nData=1, 则结果为strCol="AD"

如何实现？有没有现成的函数？要是没有，就帮我写一个！


谁来帮我解决这个VBA的简单问题！要是谁能在今天上午解决，我送500分！

[liulinhai]

Function ColOffset(strCol As String) As String
Dim strTemp As String
strTemp = Worksheets(1).Range(strCol & "1").Offset(columnOffset:=3).AddressLocal(RowAbsolute:=False)
ColOffset = Mid(strTemp, 2, Len(strTemp) - 2)
End Function

[liulinhai]

'对不起，刚才的不对。
'请用下面的。
Function ColOffset(strCol As String, iOffset As Integer) As String
Dim strTemp As String
strTemp = Worksheets(1).Range(strCol & "1").Offset(columnOffset:=iOffset).AddressLocal(RowAbsolute:=False)
ColOffset = Mid(strTemp, 2, Len(strTemp) - 2)
End Function

[zfl2k]

简单点，只能实现a to z
strcol=chr(asc(strcol)+ndata)

[jackhu]

接贴

[jackhu]

ji

[liulinhai]

接分!