excel vba中过程无法执行

Question

急做一个图书管理的资料，写了一个过程，有问题无法执行，请各位大侠帮帮忙，我一个工作簿里面有两张要用的表格，一个是sheet1，一个是“新书目30715册+2829册”，现随机将第二个表格中的的第二列（编码）和第三列（书名）的填到第一个表格（第二列和第三列）中，写的程序如下：
Sub aa()
Dim i, j, b1, d, c(2758) As Long
c(1) = 0
Dim myrange1, myrange2 As Range
For i = 1 To 2758
b1 = Int(Rnd() * 33544 + 1)
For j = 1 To i
If c(j) = b1 Then
i = i - 1
GoTo line1
End If
c(i) = b1
d = b1 + 1
Set myrange1 = Worksheets("新书目30715册+2829册").Range("bd").CurrentRegion
Set myrange2 = Worksheets("新书目30715册+2829册").Range("cd").CurrentRegion
d = d + 2
Worksheets(1).Cells(b, d).Value = myrange1
Worksheets(1).Cells(c, d).Value = myrange2
Next
Next
line1:
End Sub
逐步执行时“Set myrange1 = Worksheets("新书目30715册+2829册").Range("bd").CurrentRegion”这现黄杠，我估计下面一条也是执行不通的，请高手指点指点，谢谢！

Answer 1

呵呵，这句代码
Set myrange1 = Worksheets("新书目30715册+2829册").Range("bd").CurrentRegion
是想把编码和书名两个单元格区域赋值给变量myrange1？
那这个单元格区域Range("bd").CurrentRegion写法可是错误的！从前面的代码设置中，b是什么东东并没有说明，还有Range("bd")这样的写法也是错误的。
把B、C列单元格赋值给变量可以如下写：
myrange1 =Worksheets("新书目30715册+2829册").Range("B" & 行代码 & " : " & "C" & 行代码)
行代码比如你前面的b1或d，这就是你的设置了！
Range("B" & 行代码 & " : " & "C" & 行代码)也可这样写：
Range(Cells(行，起始列).Address & " : " Cells(行，终止列).Address ）
后面一句代码类似错误！
一己之见，仅供参考！

Answer 2

Dim myrange1, myrange2 As Range

把这行删除

Answer 3

首先你的程序是有问题的，c下下标的上限是2758-1，我不知道你为什么这样写，但是有必要这么复杂吗？追问

大侠，你说的这点我改了，问题依然存在，麻烦你再说详细一点。随机主要是保证能从“新书目30715册+2829册”找出一些书名和它的编码来，顺序从“新书目30715册+2829册”表中找出来的，一眼就看出了是假的，同一时段，一本书又不能借给两个人，所以就要随机，IF就是判断随机出来的书是不是一样，随机出来了，就从“新书目30715册+2829册”表中找出书名和编号：所以出现了Range("bd")，请指教为谢！