如何在两个excel工作表之间进行数据交换？

我有两个工作表，第一个表A列是姓名，B列是编号，第二个表A列也是姓名，但是顺序和第一个表的A列不一样，我想在第二个表的B列也加入编号 。

成都办公软件培训机构解答：用VLOOKUP函数： =VLOOKUP(A2,Sheet1!A:B,2,FALSE)，依次向下拖动

显示数值所在的单元格号？

假如有A列和B列两列数字，如何找出A列的数字在B列中所在的位置， 并在第三列显示单元格号。

解答：假设数据在A1:B10，则C列公式为：=MATCH(B1,$A$1:$A$10,0)

我想根据题意应该为：=MATCH(A1,$B$10,0)

在excel表中数组的运算法则？

有excel表如下：
姓名 成绩 /王娟 优 /永生 中 /闵生刚 优 /朱智锐 中 /胡强强 良 /金龙鳞 优 /张正梅 中 /汪欲生 良 /闵生刚 中 /王娟 优 /张正梅 优 /闵生刚 中 /永生 良 /王娟 良 /其中姓名在sheet1页的a列，成绩在c列。我想在sheet2页中建立一个表如下：
姓名 统计优数 /胡强强 /金龙鳞 /闵生刚 /汪欲生 /王娟 /永生 /张正梅 /朱智锐 /同样姓名在sheet1的a列，统计在c列，这里的姓名已经整理为没有重复的姓名。要统计出每人获得优的数目。请问用什么函数能解决。我用了if((sheet1!c2)=”优”,countif(sheet1!a:a,a2)),结果是统计的姓名数，而不是成绩数。如果能统计出来，哪么就是一个动态的当sheet1中数据变化时，sheet2中数据应到跟着变化。
有位朋友指导采用下面的式子把上面的问题解决了。这里假设最大记录数为100
=sum((sheet1!$a$2:$a$101=$a2)*(sheet1!$c$2:$c$101=”优”)*1) ，按Ctrl+Shift+Enter ，但是这是用到了数组运算，请问数组运算的规则是什么，看到许多地方都可以用数组解决，但不知其所以然。帮助文件中也没说运算规则。如上式中为什么用*号？谢谢

成都办公软件培训班解答：对于数组公式的含义
sum((sheet1!$a$2:$a$101=$a2)*(sheet1!$c$2:$c$101=”优”)*1)
我们来一部分，一部分的讲：
1、(sheet1!$a$2:$a$101=$a2)
表示用 sheet1!$a$2:$a$101 区域中的每一个单元格中的内容与 $a2 单元格的内容进行比较，如果相同结果为“True”，否则为“False”。
2、(sheet1!$c$2:$c$101=”优”)
表示用 sheet1!$c$2:$c$101 区域中的每一个单元格中的内容与 字符串”优”进行比较，如果相同结果为“True”，否则为“False”。
3、最后一部分乘以1。是强制Excel将“True”或“False”转换为数值“1”或“0”，以便sum函数可以求和。
4、至于第一部分和第二部分之间的乘号（*)的目的是，如果第一部分或者第二部分有一个的结果是“False”，那么Excel将其转换为数值“0”，相乘结果为零，表示不在求和范围内。

如何使EXCEL应用程序锁定不让人打开？

请问我以下的操作应再如何修改成如密码输入错误则退出EXCEL.这是我编写在PERSONAL.XLS中的一个模块.代码如下,请各高手帮忙为小弟指点一二,不甚感激!
Sub auto_Open()
MsgBox “热列欢迎来海源,你吃饱了吗？”
If Application.InputBox(“请输入操作权限密码:123”) = 123 Then
Else
‘…..(在这一步中,我想退出EXCEL,但无法实现请高手指点一二)
End If
End Sub
成都办公软件培训机构解答：

Private Sub Workbook_Open()
MsgBox “热列欢迎来海源,你吃饱了吗？”
If Application.InputBox(“请输入操作权限密码:123”) = 123 Then
Exit Sub
Else
Application.Quit
End If
End Sub

程香宙的修改：

Sub auto_Open()

MsgBox “程香宙欢迎你的到来”, vbQuestion, “联系电话：013838751304”

If Application.InputBox(“请输入操作权限密码:”, “系统登陆”) = 123 Then

Else

MsgBox “密码错误,请重输”, vbCritical + vbOKOnly, “你还有两次机会”

If Application.InputBox(“请输入操作权限密码:”, “系统登陆”) = 123 Then

Else

MsgBox “密码错误,再给你一次机会!”, vbCritical + vbOKOnly, “你还有一次机会”

If Application.InputBox(“请输入操作权限密码:”) = 123 Then

Else

MsgBox “你无权进入本系统!请向程香宙申请密码!”, vbCritical + vbOKOnly, “你没有机会啦!”

Application.Quit

End If

End If

End If

End Sub

如何才能有条件的引用某一区的内容

请教各位，怎样才能引用符合条件的某一区域的内容。如下：
A　　　B　　　C
9-1　　1　　　9-15 /9-2　　2　　　9-16 /9-2　　2　　　9-17 /9-2　　1　　　9-18 /9-4　　2　　　9-18
请问，用什么方法才能在另外的单元格中引用同时符合A列中“9-2”和B列中“2”的C列的内容。

成都办公软件培训班解答：先判断个数，再列出符合的数据：
{=IF(ROW()-ROW($A$18)+1>SUM(($A$2:$A$7=$B$16)*($B$2:$B$7=$C$16)),””,TEXT(SMALL(IF(IF($A$2:$A$7=$B$16,$B$2:$B$7,””)=$C$16,$C$2:$C$7,””),ROW($A1)),”m月d日”))}

循环引用问题

vba中输入公式，我想用变量代替RC地址，以便循环操作，如何做到？比如：在Range(“am6”).FormulaR1C1 = “=SUM(R[-5]C:R[-5]C[10])”中，如何才能用变量x来代替其中的10或-5等数字？

解答：=”=SUM(R[” & x & “]C[” & y & “]:R[” & xx & “]C[” & yy & “])”

如何让我的图表随着数据透视表的更新？

我的问题是： 1、当有新月份的数据出现的时候，图表无法包含新数据；2、但REGION选择不是全部，比如CD,图表中没有数据。怎样实现图表随数据透视表的更新而更新呢？

成都办公软件培训机构解答：

DATA=Data!$A$1:$G$129、固定的范围,不值钱、DATA=OFFSET(Data!$A$1,,,COUNTA(Data!$A:$A),6)
动态范围、按数据透视表[!]按钮,更新数据

Sales Date；改用年月日三个字段；目的是当[索引],让条件容易下；DATA=OFFSET(Data!$A$1,,,COUNTA(Data!$A:$A),8)。

直接由[数据透视表]工具,[图表精灵]出,[图表]

如此就是完美的三层式结构，分工完成工作，只不过是接条龙，很简单吧!

又问：每次刷新数据，列宽等格式就需要重调，有没有办法将格式固定住？

答：工具>>选项>>一般>>标准字型>>大小>>确定。设定好以后,开新档案,列宽行高自动会调整。但这不是重点

[数据透视表]；鼠标右键>>分页显示。此功能是用来打印整本活页簿,出报表用

双击总计字段下之单元格；此功能是用来列出该笔合并数据所有明细；所以[自动筛选][进阶筛选]就用不着了,也不必去写复杂之[数组公式]；需要甚么数据,直接找[数据透视表]要；操作非常简单

DATA可以转到mbd檔；ACCESS可以汇入Excel数据,用精灵操作；汇入以后xls档即可删除

Excel>>数据>>取得外部数据>>新增外部数据查询>>>>>>转入[数据透视表]；此物即为Microsoft Query
第一次使用会要求放入光盘片,安装ODBC驱动程序

改用年月日三个字段；是有道理的。别嫌麻烦

 如何用函数实现连续相加？

我有一公式是这样的：=sum(B1+B2+B5+B8+B11+B14+B17+B20)
也就是前两个是连续相加，后边的是每隔3个相加，不知有没有简单的公式。
成都办公软件培训答：{=SUM((MOD(ROW(B1:B20),3)=2)*B1:B20)+B1}

两个日期相差的月份数

使用Datedif(日期1，日期2，”m”)函数。

把计算结果为负值的显示为红色取整并在数字后面加上“仟元“

把单元格格式改为#,##0″仟元”;[红色]-#,##0″仟元”

如果不要负号可以写成#,##0″仟元”;[红色]#,##0″仟元”

比较A、B两列数据并在A列中包含B列的数据删除

工作表中A列数据是原始数据，而B列是另一些数据，现在要比较两列的情况，然后将A列中包含B列的数据删除

Sub wswx0041()
Dim i&, j&
On Error Resume Next
For j = Range(“B65536”).End(xlUp).Row To 1 Step -1
For i = Range(“A65536”).End(xlUp).Row To 1 Step -1
If Cells(i, 1) Like “*” & Cells(j, 2) & “*” And Not IsEmpty(Cells(j, 2)) Then Cells(i, 1).Delete shift:=xlUp
Next i
Next j
End Sub

显示隐藏的工作表

有个朋友给了我一个EXCEL程序，里面只有2个SHEET，但是我见到其中一个SHEET还引用了本文件另外一个工作表的内容，我用ALT+F11打开VB编辑器又可以看到那个隐藏了的工作表，
请问怎么能看到那工作表呢？
成都办公软件培训班答：Sheets(“name_of_sheet”).Visible = True

这样一列如何筛选出含201的

县一高2014555 /便民201号 /县城301号/201414441/301745555/20145122 /柏良201 /柏良301
答：假设你的资料在B列，且起始行为第四行，即B4起始单元格，终止与11行处，即B11，则在A列输入公式IF(ISERROR(FIND(“201″,B4)),A3,A3+1),然后在D列输入顺序数字，比如1到10，在E列输入公式vlookup(d4,$a$4:$b$11,2,1>2)。注意A3为0。或：自动筛选->单击下拉列表->custom(自定义)->在条件中选”包含”,在右边的文字框输入”201″->OK

被破坏的文件如何修复？

Excel文件是一个工作簿，一般可以包含255个工作表，每个工作表中可以包含大量的数据。如果一个Excel文件部分受损，不能正常打开，该怎么办呢？这里向大家介绍两种解救方法。
成都办公软件培训学校解答：手动处理
进入Word，打开要修复的XLS文件，如果Excel只有一个工作表，会自动以表形式装入Word，若文件是由多个工作表组成，每次只能打开一个工作表。打开后，先将文件中损坏的数据删除。
用鼠标选中［表格］→［转换］→［表格转文本]，注意可用“，”间隔符或其它分隔符，另存为一个TXT文本文件。在Excel中直接打开该文本文件，在打开时，Excel会提示文本导入向导，一般情况下只要直接点击［下一步］即可，打开后另存为其它的Excel文件即可。
注意：这种修复的方法是利用Word的直接读取Excel文件的功能实现，该方法在文件头没有损坏，只是文件内容有损坏的情况下比较有效；对文件头已经损坏的Excel文件，此方法可能不成功，必须借助于其它方法。
用Excel修复工具
Concept Data公司提供了一个专门用于修复Excel损坏文件的修复工具——ExcelRecovery，能够对Excel 5.0/97/2000的文件进行恢复处理，大家可以先下载该软件的免费演示版试用，仅有674KB，下载地址http://download.sina.com.cn。软件安装后，可以自动将Excel的修复程序加在Excel应用程序中，在“文件”菜单下多出一项“Recovery”选项，若有损坏的文件，可以用该选项进行修复。另一个下载地http://www.skycn.com/soft/7432.html

使用方法是：

1、打开Excel；

2、单击“文件”菜单下的“Recover”选项，Excel Recovery对话框将打开

3、指定要修复的Excel文件，然后按[Recover]按钮；

4、自动修复；

5、另存为一个新的文件名，即可完成文件的修复工作。

注意：该演示版本只能修复普通文件，不能修复带Visual Basic代码、图表以及包含口令的Excel文件，如果需要修复这些文件，请进行注册。

另外要提醒大家的是：保存在软盘中的文件极易损坏，受损后可用以上方法修复，但如果损坏的文件位于磁盘0磁道时，就必须先修复软盘，再用上述方法修复Excel文件。
另外，考虑到未注册版本的使用限制，我找到如下破解页面，你自己再研究研究
Results 4 of about ExcelRecovery
URL: http://www.cracks.am/cracks/e4.html
• ExcelRecovery v3.0
• ExcelRecovery v2.2

URL: http://www.thecrack.net:8080/db/list.php…
• 2064. ExcelRecovery 2.2 12 Kb
• 2065. ExcelRecovery 2.2.1 12 Kb
• 2066. ExcelRecovery v3.0 (SirCrack) 12 Kb

URL: http://crck.passwd.ws/e.htm
• ExcelRecovery v3.0 – 11 Kb

URL: http://cracks.allseek.info/crc/?p=E5
• 1255. ExcelRecovery 3.0 by SirCrack [ 11 Kb ]