EXCEL VBA编程碰到的问题T_T

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

想写一个模块批量处理数据用,但是写完以后第一行就过不去.

提示子过程或函数未定义,错误指在第一行

下面是我写的程序

Sub main()
Dim RowNumber As Long
Dim PreStkcd As Long
Dim CurrStkcd As Long
Dim Trdmnt As Date
RowNumber = 2
PreStkcd = Range("A" & RowNumber)
CurrStkcd = Range("A" & RowNumber)
Do While CurrStkcd <= 601998
Trdmnt = #11/1/1991#
If PreStkcd = CurrStkcd Then
Do Until Trdmnt = #5/1/2007#
If Range("B" & RowNumber) <> Trdmnt Then
Row("RowNumber:Rownumber").Select
Selection.Insert Shift:=xlDown
Range("A" & RowNumber).Select
ActiveCell.FormulaR1C1 = CurrStkcd
Range("B" & RowNumber).Select
ActiveCell.FormulaR1C1 = Trdmnt
End If
RowNumber = RowNumber + 1
Trdmnt = DateAdd("m", 1, Trdmnt)
Loop
ElseIf PreStkcd <> CurrStkcd Then
PreStkcd = CurrStkcd
End If
CurrStkcd = Range("A" & RowNumber)
Loop
End Sub

那那段比较长的循环去掉这段运行就没有问题,但是加进去以后提示的是第一行出错,迷茫了...在线求解>_<

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：vba编程 EXCEL exce xcel cel EXCEL VBA

加个Excel附件，方便分析。

以下是引用rocca在2007-6-21 21:31:00的发言：
加个Excel附件，方便分析。

这段程序是用来整理数据的时间的,为了让excel里的数据和eviews里数据的时间可以对齐所以写了这个程序,用来添加excel里某些数据没有的日期.

128292.rar (556.12 KB) 本附件包括：

• TRD_Mnth766-1998.xls

2007-6-21 21:46:00 上传

EXCEL　VBA编程碰到的问题T_T

有问题的是模块2,另外两个是测试用的...

看了一下，其中这段

Row("RowNumber:Rownumber").Select

肯定没法工作。你得把RowNumber先从Long型转换成字符串型,用函数str()。

另那个函数是Rows而不是Row。