菜鸟谈VBA最最基础入门《原创》

xpmsysu

谢谢各位了！

fzct1

太感谢楼主了，您的入门课程让我受益匪浅

chengfamily

对初学者是门很好的教程

阿龙168

不错的数字，82页，820楼！

ctgs

自己不会编，盗版了1437的进行了修改，可不知道为什么不行，请各位帮忙看看哪里错了。

HappyJaniceLv

谢谢楼主，这篇文章非常适合我的水平，谢谢您的分享！
但是在学习中发现一些小问题：
Sub mysub()
         Dim a As Integer
         a = "我在学习VBA变量"
         MsgBox a
End Sub
这段代码的a 应该定义为“string”字符串形式，要不然无法运行~~

yujieba

学习完成，感觉现在思路清晰了好多！！

ggsmart

这段代码是错误的，目的是用来让大家明白定义数据类型的作用或重要性。
定义成string弄就可以运行了。

ggsmart

初步看了下，应该是这类语句的错误：
Rows(i).Copy Sheets("站街").Rows([a65536].End(xlUp).Row + 1)

应该改成：
Rows(i).Copy Sheets("站街").Rows(Sheets("站街").[a65536].End(xlUp).Row + 1)

======================

因为没有指定工作表，那在代码运行过程中，[a65536].End(xlUp).Row + 1默认对当前活动工作表进行操作，即:worksheets("外在本就读花名册")。在这个工作薄中，永远返回的值是108，则，所有的记录都会粘贴到相应工作表的108行，且到程序运行结束后，每张工作表只有一条工作记录，因为后面的把前面的覆盖了。

ctgs朋友可以将相应的几句代码修改看看。

=======================
另外，你的这句代码貌似没什么用：y = ActiveSheet.UsedRange.Columns.Count
增加无用的代码，只会让程序多一些无用的计算，有害无益。

ggsmart

正确。。。感谢参与。。。。