数组文本取数问题

rs851002

大家好，我有一个多栏表，一个是用数值取数，可以测试成功。另一个是用文本，则行不通。谁能帮帮我呀，搞了十几天都没搞出来了。
关键就是这一句话
With Sheets("多栏")
l = Val(Sheets("多栏").Range("i65536").End(xlUp).Row)
For m = 7 To l
If .Cells(m, 9) <> "" Then
v1 = Val(Right(Sheets("多栏").Cells(m, 9).value, 2))
.Cells(m, 5).Copy .Cells(m, v1 + 9)
二级科目下的明细数，其实就是等于E列的数值，只不过放在对应的明细下面。
我知道Val是数值的意思，我删掉后改成Right(Sheets("多栏").Cells(m, 9).value, 2)+1，也不行。好多方法都试过了。请高手帮帮我！谢谢了

chenzyyysl

With Sheets("多栏")
For m = 7 To .Range("i65536").End(xlUp).Row
If .Cells(m, 9) <> "" Then
v1 = .Cells(m, 9) mod 100
.Cells(m, 5).Copy .Cells(m, v1 + 9)

rs851002

chenzyyysl 发表于 2013-11-29 11:01
With Sheets("多栏")
For m = 7 To .Range("i65536").End(xlUp).Row
If .Cells(m, 9)  "" Then

您好，试了，不行，数是取过来了，但不能对应到各自明细的下方。

rs851002

哦，我明白为什么了，400101，400102，400103是用后面两位01，02，03，跟 v1 + 9顺序号1，2，3相对应。如果改用文本则没有01，02，03，不能跟顺序号对应拷贝。可是要怎么解决文本对应问题呢？