代码不循环

huxx1201

Sub 选择粘贴()

Dim k, kl, i, j

     k = Selection.Row
     k1 = Selection.Rows.Count

     For i = k To k + kl - 1
     For j = 1 To 18

     s = Trim(Cells(i, j).Text)
     Sheets(8).Cells(i - k + 5, j) = s

     Next
     Next

MsgBox ("已完成")

End Sub

求大神帮忙看看为什么这段代码不循环，直接跳到已完成。。谢谢！

duquancai

检查 K,Kl的值      
For i = k To k + kl - 1

改为 For i = k To k + k1 - 1

alstar

k1 = Selection.Rows.Count

For i = k To k + kl - 1
你前面的变量是k1（一）,你后面用的是kL  改一下就循环了

huxx1201

天哪，我被这个破问题憋了半小时，快难受死了。。。谢谢了！！！！