哪一键拖曳，不要用劲往下拽，拉到文档窗口与状态栏的边缘，当EXCEL在自动显示下方行数时，就可停住（不要松开鼠标），只须观察填充柄旁的提示，满足你的要求时，即可松开鼠标。
一个小发现
分享一下，一个小发现，或许大家可能已经知道，但于我而言，今天无意发现。
在EXCEL中，填充句柄对单元格的复制，相当方便，除了可以用CTRL和右键拖动外，在按下SHIFT的同时，使填充句柄的黑色小方块变成键头状（呈调整行高状），此时，将会复制条件格式和数据有效xìng，而原有数据将不会被复制；另外，当A1与A2都有数据时，按上述方法拖动填充句柄，可以在A1与A2（数值）间chā入，但行号不变（即不影响其它列）。
如何汉化英文加载宏
对于在编码中有的菜单或对话框，可以破解后直接汉化（引号内的内容）
对于有些在编码中没有菜单的词存在，可以将 ThisWorkBook 属xìng中的 IsAddin 设成False，您就会发现"菜单中的词"是放在工作表中了
汇总多张表中数据
如何将多张表中数据汇总，每张表名为日期格式，如“20030901”，且日期不一定连续，每张表的数据格式相同，而且表会不断的增加，如何设定公式在增加表后自动汇总所有工作表中相同位置单元格的数据？
解答：1、将汇总表移至最后，定义名称
csht_ncom=MID(GET.DOCUMENT(1),FIND("]",GET.DOCUMENT(1))+1,100)&T(NOW())
sht_ncom=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)&T(NOW())
total=SUM(N(INDIRECT(IF(sht_ncom=csht_ncom,INDEX(sht_ncom,1),sht_ncom)&"!"&ADDRESS(ROW(),COLUMN()))))-N(INDIRECT(INDEX(sht_ncom,1)&"!"&ADDRESS(ROW(),COLUMN())))
在公式单元格中输入：=tatal
2、total=SUM(N(INDIRECT(INDEX(sht_ncom,ROW(INDIRECT("1:"&GET.WORKBOOK(4)-1)))&"!"&ADDRESS(ROW(),COLUMN()))))。GET.WORKBOOK(4)为工作薄中的总表数。
（N（）是什么意思？如果要计算平均值，可否将sum换成AVERAGE）
N函数是将INDIRECT函数生成的数组转为二维数组（不知excel中为什么要这样？），否则只能计算数组中的第一个值或返回错误。
不能直接用AVERAGE函数，因为中间的个数不同，可用以下的公式定义名称
avg=(SUM(N(INDIRECT(IF(sht_ncom=csht_ncom,INDEX(sht_ncom,1),sht_ncom)&"!"&ADDRESS(ROW(),COLUMN()))))-N(INDIRECT(INDEX(sht_ncom,1)&"!"&ADDRESS(ROW(),COLUMN()))))/(COLUMNS(sht_ncom)-1)输入=avg即为平均值。
去掉工作表中的公式
工作表中含有大量公式，在数据处理完后，想去掉这些公式，仅保留数值另存，相于： 选中全表—复制—（在原位置）选择xìng粘贴—数值。请问用VBA语句如何编写？
解答：請參考
With Cells
.Copy
.PasteSpecial Paste:=xlPastevalues
.Cells(1, 1).Select
Application.CutCopyMode = False
End With
2、For Each x in 所有公式单元格
If Not x.Formula = "" Then
数值 = x.value
x.Formula = ""
x.value = 数值
End If
Next
工作薄打开后个一分钟自动保存关闭，怎么写代码
1、 在thiswork中写入代码：
Private Sub Workbook_Open()
Me.RefreshAll
Application.OnTcom Now + Tcomvalue("00:01:00"), "Close_Me"
End Sub
添加模块并写入代码：
Sub Close_Me()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
我想把一个sheet拷贝后选择xìng粘贴为一个新的sheet,怎么做
答：添加模块：
Sub test()
ThisWorkbook.Save
Sheet1.Move
With ActiveWorkbook.ActiveSheet.Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
.Cells(1, 1).Select
Application.CutCopyMode = False
End With
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
如何利用列标自动求和
当光标指在F1时,能否利用COLUMN()求A1-E1和，当光标指在G1时,能否利用COLUMN()求A1-F1和,而不用改变公式，比如:SUM(A1:?),就是说写个式子代替?,利用COLUMN()自动算出最后列
1、=SUM($A$1:INDIRECT(ADDRESS(ROW(),COLUMN()-1,4)))
应该为：=SUM(INDIRECT("R1C1:R1C"&COLUMN()-1,0))
2、 用VB
新建一个工作表，在sheet1的代码窗口中录入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iRow, iCol, iCol_rn As Integer
Dim Str1 As String
iRow = Target.Row
iCol = Target.Column
Range("M1").ClearContents
iCol_rn = [A1].End(xlToRight).Column
Str1 = Range(Cells(1, iCol_rn).Address).Address
If Target.Rows.Count >= 2 Then GoTo Err
If iRow = 1 And iCol >= 2 And iCol <= 13 And Target.Columns.Count = 1 Then
If Target.Offset(0, -1) <> "" Then
Str1 = Target.Offset(0, -1).Address
End If
ElseIf iRow = 1 And iCol = 1 And Target.Columns.Count = 1 Then
Str1 = Target.Address
End If
Err:
Cells(1, 13) = "=Sum($A$1:" & Str1 & ")"
End Sub
在A1：L1中分别录入数值，在M1内输入公式：=SUM($A$1:$L$1)（给M1定义名称X：=GET.CELL(6,Sheet1!$M$1)，然后试下效果如何。在M2输入＝X可以看到公式变化。）
在单元格中录入A，回车之后自动变成A*B*C
我想实现以下功能：在颜色区域录入任意数字，当回车后单元格中内容自动变成，所录数字乘以10.22和20，该功能如何实现，以下是我写的，但是进入死循环，请版主指教，谢谢！
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row > 2 And Row < 21 Then
a = Target.Value
Target.Value = a * 10.22 * 20
End If
End Sub
解答：Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False