excel vba中过程无法执行

呵呵，这句代码
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 ）
后面一句代码类似错误！
一己之见，仅供参考！

Dim myrange1, myrange2 As Range

把这行删除

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