我手头上有一堆EXCEL的表格需要处理，我想问一下怎么样批量删除A列B列F列G列单元格呢？有公式吗？
内容合并使用&即可，公式为：
=A1&B1
例如：
1， 批量删除同一列 只需要 右键任何一个 工作表 标签---- 选中所有工作表--- 删除 A:C 列， 保存即可 ， 注意删除后 再点 任何一个工作表标签 取消工作组状态
2， 要用VBA
================================：
拆分工作薄的程序，我之前写的，
Alt+F11 视图--代码窗口，
把如下复制进去（如果复制进去不换行，复制到Word 再复制进去) 按F5运行即可
最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹
Sub fencun()Application.ScreenUpdating = Falseapplication.displayalerts=falseb = Sheets.CountFor i = 1 To bSheets(i).Copya = ThisWorkbook.Worksheets(i).NameWith ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".csv".CloseEnd WithNext iapplication.displayalerts=trueApplication.ScreenUpdating = trueEnd Sub
Hi 我
给你写个宏， 5秒钟 摆平
把所有文件放到一个文件夹里
新建一个工作表
打开
按alt+F11
视图---代码窗口---复制以下代码 进去
按F5就好了
Sub 按钮1_单击()
Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
myPath = ThisWorkbook.Path & "\" '把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
For i = 1 To AK.Sheets.Count
Columns(1).Delete
Columns(2).Delete
Columns(6).Delete
Columns(7).Delete
Next
Workbooks(myFile).Close False '关闭源工作簿,并不作修改
End If
myFile = Dir '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
MsgBox "删除完成，请查看！", 64, "提示"
End Sub
是同一个文件里不同的Sheet表格吗？如果是，则选定第一个Sheet表格，按住SHIFT键，再选最后一个Sheet表格（也就是选定全部Sheet表格）。然后直接删除你想删除的列。
同一工作表内的，使用工作组可进行操作。单击第一个表格标签名称，按住Shift键，单击最后一个标签名称（不连续的话，按住院Ctrl键，分别单击标签）可选中工作表，此时自动形成工作组，对其中任何一个工作组操作，其他所有工作表自动进行相同的操作。
题目为an exciited moment的英语作文
我迅速跑了过去以前，我又见到活了七十多个春秋扫马路的老爷爷，每当我见到路旁捡垃圾的清洁工，顷刻间，我却对他刮目相看，我总会捏着鼻子绕过他！他没有拿上雨具，它停了下来，我仿佛总能见到老爷爷的身影，又把那袋子刮起来，老爷爷走了。雨下得更大了。风停了。老爷爷又用手敲了敲后背，又...
越前龙马的问题
不二周助:他的球技让我感受到前所未有的刺激感,希望那天可以和他认真的一较高下。 桃城武:那家伙已经是青学的一张王牌了,我也不能继续混下去了啊~ 越前南次郎:那小子的‘臭屁’从婴儿期就开始了,他还嚣张到在我把他高高举起时,在我头上撒了泡尿呢~ 越前龙马房间篇: 过去参赛的所赢得的奖杯和奖牌被漠不...
WOW不为人知的命令有哪些?
首先,回车,再敲\/MACRO (或\/宏 或按EXC弹出菜单中选“宏命令设置”)看见了吧?会弹出一个窗口,上面有New(新建宏命令)和Complete(完成宏命令)两个按键。点New,又会弹出一个窗口,哇,花花绿绿的,里面包括了WOW几乎所有的技能图标,随你喜欢,随便选一个!它就是你设置的宏命令的图标了,给它取个名字吧!方便你用...
梭罗名言
1、不要雇一个为钱而替你工作的人。 Dont hire a man for money work for you。 2、富裕是全然体验生活的能力。 Rich is the ability to experience life altogether。 3、多余的财富只能买来多余的东西。 Superfluous wealth can buy superfluities only。 4、有时生病是有益于健康的。 Sometimes illness i...
谁能给我 侠盗列车—圣安地列斯的全攻略
这次是突袭Ballas帮派的小头目Kane,先召集2个手下,然后驱车前往坟地,偷袭Kane得手后,再驾车逃逸.注意追警.送Sweet回他家后.任务完成.Respect+C的任务:1.Gray Imports途径UimoRing的甜甜圈店碰巧又遇到来Tenpenny,他告诉CJ俄国人和Ballas帮在做走私的交易,叫CJ干掉俄国人.到了仓库那,先干掉守卫,再打坏控制器开门,...
侠盗猎车手4的秘籍有哪些???
BAGOWPG = Have a bounty on your head 在你头上扔奖励？FOOOXFT = Everyone is armed 所有人都有枪 AIWPRTON = Spawn Rhino召唤坦克 CQZIJMB = Spawn Bloodring Banger 召唤一辆 Bloodring Banger JQNTDMH = Spawn Rancher 召唤 Rancher PDNEJOH = Spawn Racecar 召唤 Racecar 应该是速度很快的...
女弹药攻击问题!
所以我们第一步不是进图秒BOSS，而是把BOSS变成桩子，很多BOSS能冰住的，不要心急，挂个C4慢慢兜圈子，反正C4在头上BOSS跑不快的，62套配合50CC手弩堆出来的冰雷，几率还是不小的。冻住了就一条龙完美服务，不死也残。冻不住的BOSS，C4减速配合光子或者地雷的晕眩（这个拼人品），照样一条龙，...
melt my heart to stone 这首歌 的翻译
我又听到你的谎言我说你名字是我们的联系我最好的整理我的头在我的爱只有一个我是在爱中唯一的一个。完 再美化一下啊··阿黛勒 -心，溶碎成石 在我的脚下是冰冷的空气 让我脆弱，让我为你而心碎 让我化为一首重复支离的曲调 永远无法理解你的心 假装理解 却又一次次的原谅 我不理解 我心...
魔兽大脚我屏幕上对怪的伤害数值怎么没有了?
ESC==》界面==》在里面找下 我望了 好久没有玩了 新手的时候我也喜欢问这样的问题
开发超能力:心灵,也是一种科学。让超心理学家带你找回潜能
在英文方面,《牛津字典》中,有关灵魂的解释是specter:Ghost haunting fear of a human body believed to excist forever,身体的非物质部分,认系永远存在的。在这里不难发现,我国与西洋之释义中,均有共同之点,那就是:除现有的身体之外,另有一个属于自己的非物质部分的生命,永远持续存在这个宇宙之中。由于灵魂的...
抄晴拜康： 如果你一定要解决 Hi 我 给你写个宏, 5秒钟 摆平 把所有文件放到一个文件夹里 新建一个工作表 打开 按alt+F11 视图---代码窗口---复制以下代码 进去 按F5就好了 Sub 按钮1_单击() Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, ...
洞口县13628901167： 如何将大量excel文档放入同一excel文件,做成不同sheet - ？
抄晴拜康： 第一步:将需要合并的excel文件存放在同一目录中; 第二步:创建一个带宏的EXCEL文件,文件名设为TOOLS.XLSM; 第三步:点击开发工具-插入模块; 第四步:在新的模块中编制宏代码,代码如下: Sub 合并文件() Application....
洞口县13628901167： 关于excel合并 - ？
抄晴拜康： 将多个Excel文件合并为一个Excel文件步骤:宏--创建--输入下面内容: Sub CombineWorkbooks()Dim FilesToOpenDim x As IntegerOn Error GoTo ErrHandlerApplication.ScreenUpdating = FalseFilesToOpen = Application....
洞口县13628901167： 如何打开多个excel表格,提取里面的内容,拷贝到另一张excel表里,一对一的复制 - ？
抄晴拜康： 每个文件,是sheet表还是工作簿workbook,如果是sheet表比较方便,如果是book,就要对每个book的名字设置然后,copy,保存
洞口县13628901167： 如何将excel表格批量转换成WORD表格而且格式不变,内容可以编辑! - ？
抄晴拜康： 在word里面 插入---对象.选择excel表格.就可以了.很好的功能啊.
洞口县13628901167： 如何把excel表格的数据加和？
抄晴拜康： 以上方法都可以,不过我建议用表格自带的统计程序来做,楼上的朋友虽然结果也正确,但如果数据很大的时候,不是很麻烦? 建议:用数据透视表的方法来做,也加深对excel表格处理方法的了解. 图中有详细操作步骤, 如仍有不明白,可以联系我,请发信息给我,
洞口县13628901167： 我要建立一个小型数据库,不知道用什么软件? - ？
抄晴拜康： 如果数量不是太多,建议继续使用EXCEL,因为数据库的操作难度比EXCEL高.如果EXCEL装不下的,你首先考虑ACCESS,因为是OFFICE的组件,操作上手可能要向对简单.
洞口县13628901167： 现在我手头上有个Excel表格,现在要把这表格里面的15个数据分解到15个Excel表格里面,请教有什么办法? - ？
抄晴拜康： 双击要复制的单元格,复制里边的数据选择15个目标单元格,粘贴前提是这些数据是回车换行或空格分开的
洞口县13628901167： excel怎么把几张表格按名字序号等配对合并成一张 - ？
抄晴拜康： 这题比较难呀,50分确实少点儿, 示意图如下:共3张表,从上到下依次是<<汇总表>>,<<1月>>,<<2月>>, 在<<汇总表>>中,在C4中输入公式:=IF($B4=＂＂,＂＂,IFERROR(INDEX(INDIRECT(C$3&＂!B$3:Z$100＂),MATCH($B4,INDIRECT(C$3&＂!B$3:B$100＂),0),2+INT((COLUMN(A2)-1)/12)),＂＂)) , 同时按下ENTER键,SHIFT键,和CTRL键,下拉,之后右拉.
洞口县13628901167： 我有一大堆EXCEL数据,怎么用MATLAB简单筛选一下? - ？
抄晴拜康： 因为你没有给具体的格式,所以只能笼统地说了... 首先需要用 xlsread 函数把excel数据读入matlab,具体请查看 help. 然后,筛选数据,比如 a = [1 3 6 87 4 2 4 6 3 1 5 7 3 1 5 3 1 6 858 998 6 5 4 ]; b=a(a<5); % a中所有小于5的值 c=a(a>3); % a中所有大于3的值
