Excel中VBA进行插入列、格式化、排序

在数据分析中经常需要对数据进行排序.排名,观察指标排名变化情况,手工处理的话不是太困难,但经常使用,还是编写宏比较方便. 宏命令比较简单,不多解释,只说一下注意事项: 1.有合并单元格,比如列.行合并后,直接选择会全选合并的列/行,这时候,不用管选择,直接进行插入.删除.或者格式化就可 Columns(nCol).Insert 2.输入格式化公式时,需要固定单元格$,可以使用FormulaR1C1,R[1]C[1]标示当前行.列加1,R1C1标示$a$1,使用时还要注意把数字转换成字符串. S…

excel中VBA的使用

遇到的问题在工作中遇到了一点小小的问题,需要给我负责带的班级的同学们测试男生1000米,女生800米的成绩.表格是这样的: 体育成绩表序号班级姓名性别男1000.女800 成绩 1 1 张三男 3.50 2 1 李四女 3.44 我们在录入完成绩后,需要按照一定的标准去给出学生成绩,标准是这样的: 需要我们根据每个学生的成绩,给出对应的分数.于是,我就计算了下我的工作量:每个人对应的需要给分数,总共需要给六个班 x 70 个人也就是差不多420个人给分数.那样的一个工作量…

excel中vba将excel中数字和图表输出到word中

参考:https://wenku.baidu.com/view/6c60420ecc175527072208af.html 比如将选区变为图片保存到桌面: Sub 将选区转为图片存到桌面() Dim ans As Byte, Pic As String, Paths As String On Error Resume Next Paths = CreateObject("WScript.Shell").SpecialFolders("Desktop") &…

Excel中VBA 连接数据库方法- 摘自网络

Sub GetData() Dim strConn As String, strSQL As String Dim conn As ADODB.Connection Dim ds As ADODB.Recordset Dim col As Integer '清空电子表格的所有数据 Cells.Clear '连接数据库的字符串 strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=name;Password=pwd;In…

excel中VBA对多个文件的操作

添加引用 "Scripting.FileSystemObject" (Microsoft Scripting Runtime) '用于操作文件.目录 Sub 数据整理部分() ' ' 数据整理到新的Sheet '' Dim fso As New FileSystemObject Dim folder As folder Dim file As file Dim strExt As String Dim wkb As Workbook strExt = "xlsx"…

excel中vba求摩尔圆包线

Dim f As Double, f1 As Double, f2 As Double, df As Double, oxy() As Double, R() As Double, k As Double, k1 As Double, k2 As Double, b As Double, b1 As Double, b2 As Double Dim dk As Double, db As Double Dim iRow As Long, i As Integer Sub readExcelToA…

Excel中针对IP地址的排序方法

新建一个辅助排序列,用辅助列来扩展,辅助列公式如下: =TRIM(TEXT(LEFT(SUBSTITUTE(A1,".",REPT(" ",99)),100),"000")&TEXT(MID(SUBSTITUTE(A1,".",REPT(" ",99)),100,100),"000")&TEXT(MID(SUBSTITUTE(A1,".",REPT(&…

Excel中的宏--VBA的简单例子

第一步:点击录制宏第二步:填写宏的方法名第三步:进行一系列的操作之后,关闭宏第四步:根据自己的需要查看,修改宏第六步:保存,一般是另存为,后缀名为.xlsm,否则宏语言不能保存. 到此为止恭喜你一个简单的宏已经制作成功,当然宏也可以调用Excel中的公式,例如:sum等,排序,布局,查询,等. Excel中常用对象的简单介绍: 800x600 Normal 0 7.8 磅 0 2 false false false EN-US ZH-CN X-NONE MicrosoftInternet…

VBA在Excel中的应用（三）

目录 Chart Export Chart Format Chart Lengend Chart Protect Chart Title Chart Chart Export 1. 将Excel中的图表导出成gif格式的图片保存到硬盘上 Sub ExportChart() Dim myChart As Chart Set myChart = ActiveChart myChart.Export Filename:="C:\Chart.gif", F…

如何在Excel中通过VBA快速查找多列重复的值

今天项目组的一个同事问我如何快速的找到一个Excel中第3列和第5列的值完全重复的值,我想了想虽然Excel中自带查找重复值的功能,但是好像只能对同一列进行比较,所以就写了一个VBA进行处理,VBA非常简单,但效果不错. Sub FindDuplicatesInColumn() Dim lastRow As Long Dim matchFoundIndex As Long Dim iCntr As Long lastRow = ' 初始化临时列, 第7列用来存放结果,第8列将3 5两列的值拼接起…

用VBA计算WPS 表格ET EXCEL中的行数和列数的多重方法

用VBA计算WPS 表格ET EXCEL中的行数和列数每种方法中上面的是Excel的行数,下面的是Excel的列数. 方法1: ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Columns.Count 缺点:有时可能会比实际数大一些,原因是如果你把最后几行(列)数据清除后(非整行或整列删除), 用这个命令仍返回未清除前的值.就是说现在虽然是空的,但是你曾经用过也算你的. 方法2: ActiveSheet.Range("A65535…

VBA在Excel中的应用（一)：改变符合条件单元格的背景颜色

在使用excel处理数据的时候,为了能更清晰的标示出满足特定条件的单元格,对单元格添加背景色是不错的选择.手工处理的方式简单快捷,但是当遇到大批量数据,就会特别的费时费力,而且不讨好(容易出错).通过代码来处理是个不错的选择,excel可以通过VBA编程来处理内部数据,在打开excel页面后,可以通过“alt + F11”组合键来启动VBA编程界面,跟VB的编程界面和语法一样,需要注意的是如何调用excel的内容.VBA通过sheet, range和cells三个层次来调用excel中的制定区域…

VBA读取word中的内容到Excel中

原文:VBA读取word中的内容到Excel中 Public Sub Duqu() Dim myFile As String Dim docApp As Word.Application Dim docRange As Word.Range myFile = ThisWorkbook.Path & "\Word文档的名字" '指定Word文档 Set docApp = New Word.Application docApp…

[VBA]用一个简单例子说明如何在Excel中自定义函数

Excel中的函数无疑是强大的,但是再强大的战士也有他脆弱的脚后跟[1].这两天在使用Excel的时候遇到了一个需求,要在某一个单元格里面自动计算今天是星期几(如显示 Today is Tuesday).本来以为Excel会有相应的函数,但是找来找去也没有找到,只有WEEKDAY可以返回今天是本周的第几天,是个数字.于是写下了一个奇怪的公式 ="Today is "& WEEKDAY(TODAY(),2),计算结果是”Today is 2”. 这可真够2的! 遇到问题就要想办法…

将excel中的数据填入word模板中-VBA

首先将word模板中需要填写excel中数据的空白处用自己独特的字符串标记,比如数据001 什么的.如下图: 这样,就可以用vba搜寻这些自己独特的标记来根据excel内容填充word了. 第一个填好的如下图: 而excel中数据如下图: 然后代码如下: Sub 生成Word文件_Click() Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j Dim Word表格行号, Word表格列号, Excel数据表列号…

Excel中使用VBA进行度分秒与十进制度的转换

发现Excel的VBA功能真是批量处理的一把利刃,工作中小试牛刀了一把,将Excel中度分秒形式的坐标批量处理成十进制度形式,处理完后用于GIS展点制图. 原Excel数据如下: VBA代码如下: Sub Coorder() Dim Longitude, Latitude As String, arr Dim num As Integer Dim LongColIdx As Integer Dim latColIdx As Integer LongColIdx = latColIdx = num…

Excel中使用VBA访问Access数据库

VBA访问Access数据库 1. 通用自动化语言VBA VBA(Visual Basic For Application)是一种通用自动化语言,它可以使Excel中的常用操作自动化,还可以创建自定义的解决方案. Excel中使用VBA的优点: 使固定.重复的任务程序自动化,提高工作效率. 可进行复杂的数据处理和分析. 可自定义Excel函数.工具栏.菜单和界面. 可连接多种数据库,并进行相应的操作. 宏是VBA的一种简单应用.宏可以通过编写VBA.录制宏两种方式获得.通常是先录制宏,再在获得的…

Excel中数字和字母混合时提取某些字符进行排序

在excel中,当数字和字母混合在一起的时候,会出现排序错误的情况比如下图的这种情况.我们希望的是2排在1后面,但是实际上10却排在了1的后面.这时候我们就需要把字符串中的数字提取出来进行排序第一步:建立辅助排序列我们在旁边新建一个列用于存储提取出来的数字字符第二步:提取数字提取代码: =MID(A2,9,FIND(".",A2)-9) 解释: 第一个数字[9]:表示从第9个字符开始 FIND(".",A2):表示找到点 ‘.’ 这个字符的位置,比如在…

[转]使用PHPExcel判别和格式化Excel中的日期格式

From : http://renzhen.iteye.com/blog/799391 最近,在做一个导入功能,在系统中使用PHPExcel类库,读取上传的Excel文件,然后进行字段映射,最后将Excel内的数据导入到系统中.其中,关于日期格式的导入,使我犯了难. 首先,如何导入日期,因为PHPExcel中日期格式在获取时得到的是数字,并不是日期字符串,于是,网上就有许多代码,用于将Excel中获取的数字转换成PHP使用的Unix Time,其实不必这么麻烦.PHPExcel中就有这样的方…

如何利用excel中的数据源制作数据地图

关于这个问题,制作数据地图的方法已不新奇,总体来说有这么几类方案: 一类方案:直接在excel里制作优势:个人小数据量应用较为方便简单缺点:需要熟悉VBA,且更强大的功能对VBA水平要求较高 1.绘制地图图形 + VBA宏语言思路:用插入图形"任意多边形"绘制地图:每一个"任意多边形"赋予正确名称:对"任意多边形"赋值:利用VBA对"任意多边形"的值进行操作, 例如上色. 先准备一张所需要的地图图片,网上都有,可以下载…

PHPExcel对于Excel中日期和时间类型的处理

PHPExcel是一款优秀的处理Excel文件读写的开源PHP Library,能够给我们提供强大的Excel读写能力,本文针对Excel处理过程中关于日期和时间类型的处理进行深入的讨论.PHPExcel最新的版本是2014年3月2日发布的1.8.0版本,后来项目迁移到了GitHub,后续的版本已经更名为PHPSpreadSheet. 一.Excel中的日期和时间类型 Excel中的日期存储的是数值类型,计算的是从1900年1月1日到现在的数值.例如2008-12-31实际上存储的是3981…

java程序转换excel中科学记数法的数据为date类型

今天出于某些原因从mongodb数据库中导出了一些数据,为了更直观的发送给其他人查阅,便使用mongoVUE的导出为excel功能. 但是导出后出现了一个问题,里边有一列存储时间的,存储的是long型毫秒数,在导出后就自动变成了科学记数法. 且不说从科学记数法中辨别出实际时间,即便是原本的毫秒值也是不易于辨别的,但是这些long值不能直接在excel中转换成date类型,因此我便想到使用poi来把这些毫秒值转换成date再写入原文件中. 从mongodb中导出的excel的科学记数法…

在Excel中使用频率最高的函数的功能和使用方法

在Excel中使用频率最高的函数的功能和使用方法,按字母排序: 1.ABS函数函数名称:ABS 主要功能:求出相应数字的绝对值. 使用格式:ABS(number) 参数说明:number代表需要求绝对值的数值或引用的单元格. 应用举例:如果在B2单元格中输入公式:=ABS(A2),则在A2单元格中无论输入正数(如100)还是负数(如-100),B2中均显示出正数(如100). 特别提醒:如果number参数不是数值,而是一些字符(如A等),则B2中返回错误值“#VALUE!”. http://…

Excel中COUNTIFS函数统计词频个数出现次数

Excel中COUNTIFS函数统计词频个数出现次数在Excel中经常需要实现如下需求:在某一列单元格中有不同的词语,有些词语相同,有的不同(如图1所示).需要统计Excel表格中每个词语出现的个数,即相当于统计词频出现次数. 图1. Excel表格统计个数解决方法:采用COUNTIFS函数. COUNTIFS 函数语法及格式:COUNTIFS(criteria_range1, criteria1, [criteria_range2, criteria2]…)其中,criteria_ra…

在 Excel 中使用正则表达式进行查找与替换

在 Excel 中,使用 Alt+F11 快捷键打开 VBA 项目窗口,在左侧的工作表名称上点右键,选择查看代码,即可出出现右侧的代码编辑窗口在代码窗口中输入以下代码: Private Sub RegExp_Replace() Dim RegExp As Object Dim SearchRange As Range, Cell As Range '此处定义正则表达式 Set RegExp = CreateObject("vbscript.regexp") RegExp.Patter…

使用Sharepoint定时运行Excel中宏程序

需求:因为Excel中数据量很大,其中包含了几个宏程序从其他数据源读取数据,运行一次宏需要比较长的时间,为了不影响使用,要求每天半夜运行一次Excel中的宏(无参数),Excel存放在共盘上. 解决方案:Sharepoint上写了一个Timejob,Timejob每天去运行宏.写Timejob参考http://www.cnblogs.com/batter152/p/4705316.html 在运行时会碰到的问题ERROR – RETRIEVING THE COM CLASS FACTORY FO…