Excel中VBA的一个小应用
--------------------编程问答-------------------- 自己顶一顶不要让帖子沉了。。。我还在痛苦等待中。。。 --------------------编程问答-------------------- 看了半天,还是一头雾水……这描述这到底是干吗用的? --------------------编程问答-------------------- 看晕了+_+ --------------------编程问答-------------------- 没看懂 --------------------编程问答-------------------- 这问题描述的~~~~,楼下的继续猜,看样子期待楼主说清楚木有这个可能了 --------------------编程问答-------------------- --------------------编程问答-------------------- 仅供参考
dim n as integer--------------------编程问答-------------------- 确实楼主说的有些乱,但是7楼的做法应该是正确的哦 --------------------编程问答--------------------
dim L as integer
ActiveCell.SpecialCells(xlLastCell).Select
L = ActiveCell.Row
n=1
do
doevents
if Range("A" + CStr(n+1)).Value<>Range("B" + CStr(n)).Value+1 then '下一行的A<>B(上一行)+1
Range("D" + CStr(n+1)).Value=Range("A" + CStr(n+1)).Value-1
Range("C" + CStr(n+1)).Value=Range("A" + CStr(n+1)).Value+1
end if
n=n+1
if n>L then exit do
loop
l = 2
For i = 2 To [A10000].End(xlUp).Row
If Cells(i, 1) - Cells(i - 1, 2) <> 1 Then
Cells(l, 3) = Cells(i, 1)
Cells(l - 1, 4) = Cells(i - 1, 2)
l = l + 1
End If
Next i
补充:VB , VBA