99问答网
所有问题
请问有没有办法从excel中用VBA编程提取数据按条件生成另一张表
把表1转成表2这个样子。
举报该问题
推荐答案 2015-10-21
有何不可?
只要逻辑清晰就能做到,不过这不是几行代码就能实现的...。
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://99.wendadaohang.com/zd/WzOeXBt7zjz77vBXv7t.html
其他回答
第1个回答 2017-09-26
一般来说,只要你想得到,多数可以。但你上面的图能够解释清楚你想做什么吗?
第2个回答 2015-10-21
图1组后一列中空值是指旷工还是无下班日?看不太清楚。
追问
这样清楚吗?
追答
可否发送你的表格,这个应该不用代码就可以办到。
本回答被网友采纳
相似回答
如何
用VBA
判断符合
条件
的
数据
复制粘贴到相应工作表?
答:
可以使用VBA中的If语句和For Each循环来实现
。首先,在VBA中定义符合条件的数据,可以使用类似下面的代码:Dim targetSheet As Worksheet Dim sourceSheet As Worksheet Dim lastRow As Long Dim i As Long Set sourceSheet = Worksheets("Sheet1") ' 指定源数据所在工作表 Set targetSheet = Worksheet...
VBA
excel中
如何
使用
宏将一个工作表中符合
条件
的某部分
数据
复制放在另...
答:
以下代码,
数据在
sheet1的A到D列,表头在第二行 取前三个复制到H列 Set conn = CreateObject("adodb.connection")conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=
excel
8.0;data source=" & ThisWorkbook.FullName Sql = "select top 3 * from [sheet1$A2:D] order by 销...
EXCEL中
怎样从多个工作表中选出满足
条件
的所有行,并
生成一
个新表?
答:
1打开需要处理的表格,按alt+f11,打开
vba
窗口,然后双击左侧的this sheet 在空白中输入程序:Sub liyoushang()Sheets(Sheets.Count).Cells.ClearContents k = 1 For i = 1 To Sheets.Count - 1 For j = 1 To Sheets(i).Range("a6000").End(xlUp).Row If WorksheetFunction.Trim(Sheets(i)....
用excel VBA
怎么把多个工作
表里
的
数据有条件
复制到一个工作表里
答:
下面的代码:Sub 把所有工作表的内容复制到第一个表末尾() Dim i, n For i = 2 To Sheets.Count n = Sheets(1).UsedRange.Rows.Count + 1 Sheets(i).UsedRange.Copy Sheets(1).Cells(n, 1) Next iEnd Sub
如何将
EXCEL中
符合
条件
的
数据
利用公式复制到
另一
个工作表
答:
1、公式无法完成复制,在一定条件下可以实现引用,但源数据必须存在。2、可以编写一段
VBA
代码将
EXCEL中
符合条件的数据复制到另一个工作表:假设是要查找A列包含XXX的,查到后将该行复制到另一个表。sub test()Dim i&,r& r=cells(rows.count,1).end(xlup).row '定位A列最后一行 k=1 '...
EXCEL 中从一
个子
表中提取
某类特定
数据
至
另一
个子表
答:
EXCEL 中从
一个子
表中提取
某类特定数据至另一个子表,可以这样:【1】用函数或VBA。如果用函数的话最好将部门那列(C列)移动到最左列,使其变成A列,然后用INDEX+SMALL+IF组成的数组函数,附件中的表格是写好公式的。【2】这个在不
使用VBA
公式的情况下实现起来似乎有点难度,,就算公式实现了,...
使用excel vba
寻找符合
条件
的行并拷贝到
另一
sheet?
答:
RowNum = 1 For i = 1 To 200 If Sheet1.Cells(i, 1) <> “” Then arrStr(0) = Sheet1.Cells(i, 1)For k = 1 To 9 arrStr(k) = Sheet1.Cells(i, k + 1) '存储每行的数据到数组 Next k '开始输出数据到表二 For j = 1 To 10 Sheet2.Cells(RowNum, j) = arrStr...
如何从多个
Excel表中提取
部分相同的
数据生成
单一的一个Excel文件
答:
1、首先, sheet1的A列和sheet2的A列具有相同的数据。可以通过编写
vba
代码用相同的数据填充sheet3的A列,如下图所示,然后进入下一步。2、其次,单击菜单栏左上角的[文件]-[另存为],如下图所示,然后进入下一步。3、接着,在弹出窗口中,将[保存类型]选择为[
Excel
宏工作簿],再单击[确定]...
用VBA从
多个
Excel
获取信息
生成
新表
答:
Sub 打开
excel表格
()Dim myPath$, myFile$, AK As WorkbookDim n As IntegerDim a As Integera = 2b = 1'Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动myPath = "d:\test\" '把文件路径定义给变量myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件Do ...
大家正在搜
excel编程vba与宏编程
excel编程使用方法
excel编程软件
excel vba编程教程
excel有什么用
excel 宏编程
excel vb编程
excel 编程语言
excel vba编程能干什么
相关问题
EXCEL 用VBA将表格中有需要的信息提取出来,到另一张表...
VBA excel中如何使用宏将一个工作表中符合条件的某部分...
EXCEL如何将满足某一条件所在行提取到另一个表中?
EXCEL大神,通过VBA编程,能有将一张表的不同表格的数据...
Excel如何按内容提取另一张表上数据(跨表查询)
excel中,用VBA,如何根据条件,将已经存在的另一个工作...
在EXCEL中,利用VBA实现根据一列数据自动成另一列数据(...