Excel VB里边10万行*10列的区域怎么快速转二维数组?

数据库有个字段about:
内容是多行的,现在偶输出Excel时只能输出到一个单元格.
希望能自动将每行的内容添加到不同的单元格...
偶用的代码,下面的代码怎么样修改才可以?

}

如有条件的话,可以遵循以下的步骤学习:

1) 理解基本的语法,上机练习简单的操作

2) 反复阅读理解有经验人士的代码

3) 对于一些简单的需求,可以试着自己解决

4) 对于VBA而言,同一个目标可以有很多实现方法。故同样的需求,可比较别人的实现方法和自己的实现方法,并加以比较评判

5) 随着学习的深入,评判、重写自己的代码

IDE)。换句话说不仅在Excel里,Word、PowerPoint也可以用VBA。VBA的运行环境称之为宿主(Host)。比如,你在Excel里面使用了VBA,那么Excel就是宿主。这个概念也适用于VBScript,对应的宿主可以认为是Windows本身(实际上是Windows的一个组件:Windows脚本宿主WSH)。

那么从VBA的历史上我们可以看到,它实际上是由两部分组成的:一个是语言本身的特性,另外一个是宿主提供的功能。语言本身具有通用性,而宿主相关的部分和不同的宿主有关。这篇文章也会对应的分为两个部分,即通用的VBScript和Excel VBA。

学习VBScript,你只需要Windows系统本身。我们使用的工具是系统自带的命令提示符、记事本和Windows脚本宿主。

首先我们建一个工作目录。以下两种操作均可:

1.新建一个文件夹,按住Shift然后鼠标右击,选择“在命令提示符中打开”

2.按Windows +R,输入cmd,回车。例如想建立的工作目录为 C:\Work,那么就输入

以下假设我们的工作目录是C:\Work。

接下来可以写程序了。在命令提示符下输入

当记事本提示你创建新文件时,选择“是”

比如我们写一个从1加到100的程序。在记事本里输入

命令提示符会输出一些版本信息,然后会出现结果5050。如果嫌版本信息太罗嗦,就加一个/nologo的选项:

因为Windows对扩展名为.vbs的文件进行了绑定,所以也可以直接运行

输出的形式略有不同,稍后解释。

变量:与数学上的变量意义相同。变量用来存储数据。变量不得使用数字作为开头,原则上不要使用中文作为变量的名字。应使用字母和数字、下划线,例如sum、my_result_0等都可以。

字面量:在代码中可见的数据,例如整数、小数和双引号包裹、可由任意字符组成的字符串。如100、"Hello"、"标题"等。

运算:与数学上的运算意义相同。

关键字:VBScript自带的命令符号,不得用于变量名称。VBScript不区分大小写。通常第一个字母大写。

注释:单引号'直到行尾的所有内容,VBScript均予以忽略。

声明一个变量使用Dim关键字。尽管变量在第一次赋值的时候会自动声明,但努力养成明确声明变量的好习惯。

用操作符=给变量赋值。=右侧的表达式将被求值,然后赋予=左侧的变量

可以把字面量、运算的结果或者函数返回的值赋给变量。=赋值只适用于整数、字符串等简单类型的赋值。

函数与数学上的多元函数意义相同。函数需要零个或多个参数返回一个运算的结果。上面的代码在调用一个函数InputBox,并赋予其2个字符串参数,以逗号隔开。当不需要返回值时,括号可以省略。

InputBox是VBScript的内建函数,而这段代码最后的WScript.echo看起来也是个函数。即WScript.echo(my_result)的简写。这个“函数”并不是VBScript提供的,而是Windows脚本宿主的功能。不得不在这里介绍是因为需要有一个输出数据的方法,而输出数据的方法VBScript本身并没有提供。事实上Windows脚本宿主对WScript.echo的解释也有不同,当用cscript

前面提到的代码都是逐条执行的。而条件分支的含义是根据数据的不同而选择性的执行不同的代码。举例

关键字 If-Then-Else-End If形成了两个分支,习惯上分支内部的代码最好给予一些空格缩进。If后面的语句是所谓条件表达式。整个表达式会被求值,若为Ture,则运行Then之后的语句后跳至End If,否则跳过Then后面的语句,直接从Else开始直到End If。如果没有Else分支,则直接跳至End If。故Else分支是可选的,当然可以有多个分支:

实际上相当于嵌套的分支:

除了分支之外,某一段代码还可以反复执行。最简单的情况,例如打印5个"Hello"

关键字 for-to-next创建了一个循环。循环变量i依次赋值为1、2、3、4、5,每次赋值后,for-next之间的代码都会完整执行一次。

以上只是谈到了VBScript最最基本的用法,能够覆盖大概60%的常用情景。但完整使用VBScript需要掌握80%的功能。

答主极为推荐的Tutorial是下面这个:

如果遇到了非常疑难的问题,应该参考最权威的官方文档(MSDN):

3. 学习Excel VBA对于想要学习Excel VBA的非程序员朋友,可能遇到的最大的一个门槛就是“面向对象编程”的概念。但对于掌握VBA,对“面向对象编程”先能够理解到以下程度就基本OK了:

我家有一只宠物猫。这里,宠物是一个类(class),我家的猫是这个类的一个对象(object)。猫是白色的,白色就是这个对象的一个属性(property)。我家猫去做绝育就是设置(property set)该对象的另外一个属性。猫吃罐头是在执行该对象的一个方法(method)。

可以认为,Excel以类库(Class Library)的方式扩展了VBScript。在面向对象编程中,对于一个类库有两种使用的方式:1是对类进行继承(例如,类“猫科动物”就是对类“哺乳动物”的继承);2是对类进行例化而形成特定的对象(例如,养一只猫)。对于Excel来说,绝大多数时候在使用第2种方式,即关心如何产生和使用对象。

对于某种功能,Excel将其设置为属性还是设置为方法是有讲究的,通常来说,对象自身的特性(标题、尺寸)等会被设置为属性,而涉及对象与其他对象交互的功能会被设置为方法。并不是所有的面向对象系统都如此。

本部分我们将设定一个简单的需求:在工作表中创建一个10x10的矩阵,每个元素都是1~100之间的一个随机整数。

有两种方式可使用Excel VBA,一个是使用Windows VBS引入Excel对象,一个是在Excel内部编程。前一种的好处是,因为程序在Excel外部,故可以连续处理多个Excel文件。后一种的好处是有一个集成开发环境(Excel VBE)可以使用,便于调试,缺点是代码分散,且Excel必须启用宏。

第一种方法,仍然使用本文第二部分的环境,用记事本新建一个文件,录入以下代码:

注意到这里使用了Set关键字而不是直接赋值,这其中的原因是=只适用于简单数值的赋值,但函数WScript.CreateObject("Excel.Application")的返回值是一个对象句柄。凡对象句柄之间的赋值都要用Set。

接下来设置这个app对象的属性Visible为True,意为把Excel程序显示出来。如果批量处理很多文件,则不用设置这个属性,程序将在后台运行,不会跳出很多Excel来。

我们知道启动Excel时会自动新建一个工作簿(WorkBook),但编程创建的App对象不会自动创建工作簿。Excel中,已经打开的工作簿构成了一个工作簿集合。在VBA里面多个同类的对象通常被归拢到一个集合(collection)当中,而集合本身也是一个对象。在Excel VBA中有各种各样的集合,工作簿集合、工作表集合、图形集合等。对于集合对象有一些统一的方法,例如Add方法的含义是,在该集合中添加一个对象,并返回它。那么Set workbook = app.WorkBooks.Add这句话执行后,Excel就创建了一个新的WorkBook,程序获得了一个workbook对象。

每一个workbook对象在创立后,它的WorkSheets集合会自动添加3个工作表(如同Excel新建工作簿一样)可以通过调用worksheets方法来得到某个工作表。(注:Excel 2013以及后续,workbook对象在创立后只会自动添加一个工作表)

对于第一个工作表,我们设置了两重循环为10x10的矩阵设置随机值。CInt()、Int()和Rnd()函数是VBScript内建函数,具体用法可查阅MSDN。对于第二个工作表,我们利用Excel自带的公式得到随机值。这就是所谓“达成同样的目标有不同的方法”。

以上我们的代码都在Excel外部运行。Excel内部有VBA的集成开发环境,仍然以随机数为例:

在Excel中按Alt+F11组合键呼出集成开发环境。左侧的工程管理窗口会列出所有打开的工作簿,每一个工作簿对应一个VBAProject。每个VBAProject下除了列出所有的工作表独有的代码之外,还有一个ThisWorkbook的项目文件,代表这个工作薄范围内的代码。除此之外,VBAProject还可能有窗体、用户自己开发的类等等。

Excel 2016 Visual Basic 编辑器(微软:对你们苹果用户做到这份儿已经够意思了,要啥自行车啊)。

我们将代码放进ThisWorkbook中。这个代码被一个Sub子过程包裹,名字是我们自己起的。这段代码和刚才的代码稍有不同,首先,对于一个句柄变量,声明时最好指定它的类型,其次,由于代码已经位于Workbook内部,故无需创建Excel进程、也无需创建workbook对象。Worksheets成为“内建函数”。而CInt等VBScript内建函数此处仍可以使用。

按F5,由于整个代码块只有一个子过程,该唯一子过程会立即执行。如果关闭了VBA集成开发环境,则可以在Excel菜单中执行“运行宏”来执行这段代码。

最后,由于Excel的安全策略,含有代码的文件需要保存为.xlsm格式。

相当于一本“词典”,经常翻阅非常有好处。

经常使用Excel的人士普遍对Excel公式掌握的出神入化,但Excel VBA却遵循着不一样的思维方式——它更接近于Excel软件自身的运行规律,而不是数据层面的特点。

VBScript和Excel VBA的系统性非常强,一本系统性强、例子丰富的书籍必不可少,MSDN乃居家必备。

当然搜索引擎也是一个好助手,把你的问题用英文表述直接Google,通常会获取丰富的答案。不能访问Google也很难科学上网的朋友可以试试

,aol的搜索后端是Google提供的。

众所周知,百度的中文技术资源质量一向低下(

无论任何时刻都不要使用百度

无论任何时刻都不要使用百度无论任何时刻都不要使用百度

无论任何时刻都不要使用百度无论任何时刻都不要使用百度
(特别重要的事情说5遍)

}

一、Wold文档(文本编辑)

Word表格编辑时可以使用一些快捷键提高效率,比如“Shift+Alt+方向键”组合,非常有用,用“Shift+Alt+上(或下)方向键”能够调整文档中段落的顺序,也可以调整Word表

格中的行序。方法是:将插入点置于要调整行的任意一个单元格内(或行尾段落标记前),按下“Shift+Alt”键,然后按上下方向键,按“向上箭头”键可使该行在表格内向上

移动,按“向下箭头”键可使该行向下移动。

2、Word 2003剔除试卷中的选择题答案

如果想在Word 2003中去掉选择题后括号内已有的答案,可按下面的步骤操作:按“Ctrl+H”组合键打开“替换”对话框,在“查找内容”框中输入“(^$)”,在“替换为”框

中输入“()”(括号中间有空格),单击“全部替换”按钮即可。但“$”只能表示一个任意的字母,即以上操作只能剔除单选题中的答案,若为多项选择题,可在查找时依次加

入多个“$”来进行查找并替换。

3、去除来自“记事本”的自动换动符

很多人习惯打草稿用“记事本”,然后复制到Word中进行排版编辑。但大家多将“记事本”程序设置为自动换行,而将其中的文本拷贝到Word中会出现一种奇怪的换行符号,

利用Word的“查找和替换”中的“[特殊格式]—[标记](即^P)”来查找替换这些换行符往往无效。这里你可以尝试在“查找和替换”中将“查找内容”设置为“^13”(不含

双引号),“替换为”项中不输入任何内容,然后全部替换即可去除来自“记事本”的自动换行符。

4、如何删除WORD文档所有空格空行

1)去多余空行――在“编辑”菜单中选择“替换”,在弹出对话框的“查找内容”中输入^p^p,在“替换为”中输入^p(这里^和p都必须在英文状态下输入),然后单击“全部

替换”即可(可以多次单击“全部替换”,直到出现“word已完成对文档的搜索并已完成0处替换”);

2)去多余空格――在“编辑”菜单中选择“替换”,在弹出对话框的“查找内容”中输入一个空格,在“替换为”中什么也不输入,然后单击“全部替换”即可(可以多次单击

“全部替换”,直到出现“word已完成对文档的搜索并已完成0处替换”)。

5、生僻字录入并不难:

1)利用Word中的插入符号法:比如我们要输入“朐”,先打开Word,输入“月”字并选中它,依次单击“插入—符号”,在弹出的窗口中把“字体”定为“普通文本”,“子集”

定为“CJK统一汉字”,就可以看到许多有“月”部首的汉字(如图1),从中可以找到“朐”字,双击这个汉字就可输入;

2)用“微软拼音”输入法中的手写板来输入:切换到微软拼音输入法,单击“选项”(即右下脚倒三角按钮),勾选“输入板”,那么在输入法状态中便会多出一个“开启/关闭

输入板”切换按钮,单击该按钮,弹出“手写识别”窗口,这样我们就可以将鼠标当成笔在左侧窗口中书写生僻汉字了,双击中间窗口得到的汉字“朐”即可输入。

6、在Word表格的最后添加一行

在表格最后添加一行,只需将光标移到表格的最后一个单元格中,按“Tab”键即可快速插入一行。

首先把图片复制到剪贴板中,然后打开替换对话框,在“查找内容”框中输入将被替换的文字,接着在“替换为”框中输入“^c”(注意:输入的一定要是半角字符,c要小写),

8、Word中巧输星期

单击“格式→项目符号和编号”,进入“编号”选项卡,单击“自定义”按钮,在“编号样式”栏内选择“一、二、三”等样式,在“编号格式”栏内的“一”前输入“星期”

在Word中输入12345,然后点击“插入→数字”命令,在弹出的“数字”对话框“数字类型”栏里选择中文数字版式“壹、贰、叁...”单击“确定”,则12345就变成中文数字

“壹万贰仟叁佰肆拾伍”。

10、自动更正错误词组:

可以通过Word2003自动更正写错的词组。比如“为虎作伥”容易写成“为虎做伥”,依次点击“工具-自动更正选项”菜单,在弹出的“自动更正”窗口中选择“自动更正”

标签项,在下面的替换文本框中输入“为虎做伥”,然后在替换为文本框中输入“为虎作伥”,点击确定。这样以后如果在文章中再次输入“为虎做伥”的时候,Word就会自动

更正为“为虎作伥”。用同样的办法我们可以把容易混淆的一些词组或是成语添加到自动更正中,让你的Word识别词组能力更强、更智能化。

找到word中页面布局-水印-自定义水印,在水印窗口中可以选择图片水印,设置照片百分比大小,如果勾选冲蚀,那么照片水印就会颜色很浅,如果去掉模糊照片水印就会

很清晰。如果想删除水印,那么在页面布局中选择“水印-删除水印”就可以了。

12、怎样在word中添加需要的excel表格

在word中找到工具插入-插入对象-对象-浏览-选择要插入的excel,点击显示图标即可。

二、Excul(表格制作)

我们使用Excel表格的时候常见的就是数据,我们对于数据的计算有很多种方法,但是数据一旦多了那就只能利用函数了!Excel函数一共有11类,分别是数据库函数、日期

与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数学和三角函数、统计函数、文本函数以及用户自定义函数。SUM,AVERAGE等等这些常用函数

外,我们财务可能用到的函数我来一一讲解其中意思:

财务函数可以进行一般的财务计算,如确定贷款的支付额、投资的未来值或净现值,以及债券或息票的价值。财务函数中常见的参数:

未来值 (fv)--在所有付款发生后的投资或贷款的价值。

期间数 (nper)--投资的总支付期间数。

付款 (pmt)--对于一项投资或贷款的定期支付数额。

现值 (pv)--在投资期初的投资或贷款的价值。例如,贷款的现值为所借入的本金数额。

利率 (rate)--投资或贷款的利率或贴现率。

类型 (type)--付款期间内进行支付的间隔,如在月初或月末。

这也是一个小技巧,要多多掌握!

1、新建并打开excel表格。

2、首先添加数据分析插件,点击左上角文件按钮,出现菜单页面,点击选项按钮。

3、然后点击“加载项”选项,选中“分析工具库”,点击下方“转到”按钮。

4、然后出现excel加载宏界面,在”分析工具库“前方框内打勾,点击确定。

5、经过上一步已经成功添加”数据分析插件“,在”数据“-”数据分析“下可以找到。

6、然后点击”数据分析“,可以找到相关的分析方法,如 回归分析,方差分析,相关分析等。

数据分析完成之后可以将数据分析的表格打印出来,打印之前我们可以使用迅捷PDF虚拟打印机来进行文件格式的转换和打印提前预览。

这个技巧主要是设置文件安全性,如果不想其他用户打开工作薄,可设置工作薄打开密码,单击“文件”→“另存为”,单击“工具”菜单上的“常规选项”,在这里可根

据不同需要设置两种类型的密码:如果根本不想其他用户打开工作薄,则需在“打开权限密码”文本框中输入密码;如果只是不想其他用户修改工作薄,但可以打开查看,

则需要在“修改权限密码”文本框中输入密码。当然为了保险起见可以把两个密码都设置,最好是设置不同的密码内容。

隐藏行或列共有三种方法,这里以行为例:

(1)右击要隐藏的行号,在出现的快捷菜单中选择“隐藏”命令。

(2)单击需要隐藏行中的任意单元格,然后选择“格式”菜单下的“行 隐藏”命令即可。

(3)移动鼠标要隐藏行的右侧,按住左键,通过移动向左移动的方式,将列宽调整为0,这样对应的行号会从工作表中自动消失,起到隐藏效果,要取消隐藏,需要同时选

择该行的左右相邻的两行,或者选中整个工作表,然后选择“格式”菜单下的“行 取消隐藏”命令即可。

三、CAD编辑器(图纸图片)

我们经常会用到图纸及图片的使用,比如说将图纸放入Wold文档中,更多的图文并茂描述。在一些机械、建筑、动漫设计等行业,都需要图纸的绘图、查看、编辑、任意格式批量转换等操作,一个全能的便捷的CAD编辑器可以解决对图纸、图片的各种个性化的需求。

1、查看器(可以同时打开多个CAD文件进行查看,浏览起来快速、便捷,大家都知道cad本身看图很麻烦)。

2、编辑器(同时对这个文件进行编辑的功能很全面,操作起来也很简单)。

3、转换器(批量对各种CAD格式之间进行转换,DWG、PDF、DXF、JPG等)。

4、其他高级、输出等功能,可以对图纸图片做一系列的操作。

四、PPT(幻灯片制作)

PPT的制作一般在演讲、教程等方面用到,里面其实没有什么难得。主要告诉大家几个注意事项,一定要切记,做到了,你的回报就特别的出色:

1、尽量用1种字体,最好不要超过3种

2、PPT的灵魂----“逻辑!”

3、PPT的恶心----“错别字等于苍蝇”

4、3色原则:“不要超过3种色系”

5、6字解码:“大化小,小化图”----提纲时,用逻辑树尽量将大问题分解成小问题,小问题用图表现。

6、12字真言:“能用图,不用表;能用表,不用字”

7、只要掌握如上原则,PPT肯定不会很“糙”或“土”,而且具有专业精神!

}

我要回帖

更多关于 vba动态二维数组 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信