设为首页收藏本站
开启辅助访问

Excel精英培训网

 找回密码
 注册
Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › vba 第一课练习碰到的问题不明请求帮助
数据透视表40+个常用小技巧，让你一次学会！
返回列表 发新帖
查看: 2047|回复: 9

[已解决]vba 第一课练习碰到的问题不明请求帮助

[复制链接]
初夏
发表于 2012-1-2 17:55 | 显示全部楼层 |阅读模式
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
我在做作业是碰到的问题不理解请老师帮我解答一下。
我的作业有几个问题不明白               
                                                               
1、        如果公司1，公司2，公司3数据有几百行，在每张表筛选后面是不是要留足够的位置                        
2、        为什么我在黄色区域加条件就会出错，是不是我没做对   
我上传附表请帮忙看看   

最佳答案
月排行榜 / 总排行榜
qzc804030
2012-1-5 10:10
我看了下,在附件内说了下我的想法,希望能对你有所帮助!
公司

vba第一讲练习提出的问题.rar

37.01 KB, 下载次数: 35

相关帖子

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上
发表于 2012-1-2 18:30 | 显示全部楼层
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
我看了一下，数据太多的老师说了以后再解决，现在不比考虑，不需要设置清除，只要按日期格式排序，自动就会好的！
回复

使用道具 举报

发表于 2012-1-5 10:10 | 显示全部楼层    本楼为最佳答案   
工作中最常用的Excel函数公式，全印在一张鼠标垫上
我看了下,在附件内说了下我的想法,希望能对你有所帮助!

第一讲练习1.rar

36.15 KB, 下载次数: 59
回复

使用道具 举报

发表于 2012-1-5 10:11 | 显示全部楼层
我看了下,在附件内说了下我的想法,希望能对你有所帮助!
回复

使用道具 举报

发表于 2012-1-5 20:46 | 显示全部楼层
有干劲！好学习！
回复

使用道具 举报

发表于 2012-1-5 22:41 | 显示全部楼层
我做的你看了没有,怎么样
回复

使用道具 举报

初夏
 楼主| 发表于 2012-1-7 18:06 | 显示全部楼层
谢谢这两天太忙没上网，今天看到了，谢谢你的批阅，我明白了
回复

使用道具 举报

发表于 2012-1-7 18:11 | 显示全部楼层
回复下载看一下。
回复

使用道具 举报

发表于 2012-1-8 10:55 | 显示全部楼层
  1. Sub 合并3个工作表()
  2. '
  3. ' 合并
  4. '

  6. '
  7.     Sheets("公司1").Select
  8.     Application.Goto Reference:="R2:R65536"
  9.     Selection.SpecialCells(xlCellTypeConstants, 23).Select
  10.     Selection.Copy
  11.     Sheets("合并").Select
  12.     Columns("A:A").Select
  13.     Selection.SpecialCells(xlCellTypeBlanks).Select
  14.     ActiveCell.Select
  15.     ActiveSheet.Paste
  16.     Sheets("公司2").Select
  17.     Application.Goto Reference:="R2:R65536"
  18.     Selection.SpecialCells(xlCellTypeConstants, 23).Select
  19.     Application.CutCopyMode = False
  20.     Selection.Copy
  21.     Sheets("合并").Select
  22.     Columns("A:A").Select
  23.     Selection.SpecialCells(xlCellTypeBlanks).Select
  24.     ActiveCell.Select
  25.     ActiveSheet.Paste
  26.     Sheets("公司3").Select
  27.     Application.Goto Reference:="R2:R65536"
  28.     Selection.SpecialCells(xlCellTypeConstants, 23).Select
  29.     Application.CutCopyMode = False
  30.     Selection.Copy
  31.     Sheets("合并").Select
  32.     Columns("A:A").Select
  33.     Selection.SpecialCells(xlCellTypeBlanks).Select
  34.     ActiveCell.Select
  35.     ActiveSheet.Paste
  36.     Columns("B:B").Select
  37.     Application.CutCopyMode = False
  38.     ActiveWorkbook.Worksheets("合并").Sort.SortFields.Clear
  39.     ActiveWorkbook.Worksheets("合并").Sort.SortFields.Add Key:=Range("B1"), SortOn _
  40.         :=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  41.     With ActiveWorkbook.Worksheets("合并").Sort
  42.         .SetRange Range("A2:D98")
  43.         .Header = xlNo
  44.         .MatchCase = False
  45.         .Orientation = xlTopToBottom
  46.         .SortMethod = xlPinYin
  47.         .Apply
  48.     End With
  49. End Sub
复制代码
我的是用的,定位功能和相对引用功能,录制时比较繁琐,我会录制但是看不懂代码,
回复

使用道具 举报

发表于 2012-1-8 10:55 | 显示全部楼层
  1. Sub 合并3个工作表()
  2. '
  3. ' 合并
  4. '

  6. '
  7.     Sheets("公司1").Select
  8.     Application.Goto Reference:="R2:R65536"
  9.     Selection.SpecialCells(xlCellTypeConstants, 23).Select
  10.     Selection.Copy
  11.     Sheets("合并").Select
  12.     Columns("A:A").Select
  13.     Selection.SpecialCells(xlCellTypeBlanks).Select
  14.     ActiveCell.Select
  15.     ActiveSheet.Paste
  16.     Sheets("公司2").Select
  17.     Application.Goto Reference:="R2:R65536"
  18.     Selection.SpecialCells(xlCellTypeConstants, 23).Select
  19.     Application.CutCopyMode = False
  20.     Selection.Copy
  21.     Sheets("合并").Select
  22.     Columns("A:A").Select
  23.     Selection.SpecialCells(xlCellTypeBlanks).Select
  24.     ActiveCell.Select
  25.     ActiveSheet.Paste
  26.     Sheets("公司3").Select
  27.     Application.Goto Reference:="R2:R65536"
  28.     Selection.SpecialCells(xlCellTypeConstants, 23).Select
  29.     Application.CutCopyMode = False
  30.     Selection.Copy
  31.     Sheets("合并").Select
  32.     Columns("A:A").Select
  33.     Selection.SpecialCells(xlCellTypeBlanks).Select
  34.     ActiveCell.Select
  35.     ActiveSheet.Paste
  36.     Columns("B:B").Select
  37.     Application.CutCopyMode = False
  38.     ActiveWorkbook.Worksheets("合并").Sort.SortFields.Clear
  39.     ActiveWorkbook.Worksheets("合并").Sort.SortFields.Add Key:=Range("B1"), SortOn _
  40.         :=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  41.     With ActiveWorkbook.Worksheets("合并").Sort
  42.         .SetRange Range("A2:D98")
  43.         .Header = xlNo
  44.         .MatchCase = False
  45.         .Orientation = xlTopToBottom
  46.         .SortMethod = xlPinYin
  47.         .Apply
  48.     End With
  49. End Sub
复制代码
我的是用的,定位功能和相对引用功能,录制时比较繁琐,我会录制但是看不懂代码,
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-19 10:51 , Processed in 0.154698 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表