不会VB 有没有高手可以帮我看看这个代码应该怎么写

lvbohan

我没学过VB不知道这些语句都怎么写
简单的写了一点但是运行不了
谁能帮我改改

Dim top, bom, num
top = 0
bom = 1
For num = 1 To 30328
    top = top + 1
    bom = bom + 1
    If Range("Atop") = True Then
    Rows("top:top").Select
    Selection.Copy
    Rows("bom:bom").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=False
        End If
        Next num
End Sub

1，需要循环30328次
2，用IF判断A1-A30328单元格是否等于True，如果是就执行复制整行粘贴到下一行的操作，如果是FALSE就跳过不做任何动作
ps：上边语句里的粘贴是选择性粘贴-跳过空单元

例：
如果A1=true则复制1：1到2：2
如果A2=true则复制2：2到3：3
如果A3=FALSE则跳过，继续判断A4

[ 本帖最后由 lvbohan 于 2010-9-7 16:53 编辑 ]

Siriudie

Range("ATop")这种写法不对，应该是Range("A" & Top), 变量名称top, bot, num 之类的不能包含在引号内，包含在内的会认为是字符串，而不是变量。

lvbohan

那Rows("top:top")这个怎么改那？？？

cm6705

1. Dim num As Long
   
2. For num = 30328 To 1 Step -1
   
3.     If Range("A" & num) = True Then
   
4.        Rows(num).Copy Range("a" & num + 1)
   
5.     End If
   
6. Next num

复制代码

蓝桥玄霜

Rows("top:top")改为：
Rows(top & ":" & top)

lvbohan

改完后出现了一个新的情况
运行后提示我类Range的PasteSpecial方法无效

Dim top, bom, num
top = 0
bom = 1
For num = 1 To 30328
    top = top + 1
    bom = bom + 1
    If Range("A" & top) = True Then
    Rows(top & ":" & top).Select
    Selection.Copy
    Rows(bom & ":" & bom).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, skipblanks:=True, Transpose:=flase
        End If
        Next num
End Sub