Office教程学习网

今天来讲几个小技巧，但确实很实用。

问题1：excel里1/3，4/3这些怎么输。

错误做法1：直接输入1/3，得到1-3或1月3日，总之就是日期.

错误做法2：加引号'1/3，得到1/3，但是确实文本，不是数值。通过istext函数判断可知。

正确做法：输入0+空格符号+1/3,得到1/3数值.就是我们要的。

问题2：多张工作表中同一位置比如A1输入相同的内容我。

老实做法：一个个输，好累

聪明做法：可以选中一张工作表，然后按住Ctrl键，再单击窗口左下角的Sheet1、Sheet2......来直接选择需要输入相同内容的多个工作表，可以看到

 

接着在其中的任意一个工作表中的A1输入我。完成后点有机工作表标签点取消就是恢复了。

特别方法vba：Sub aa()

For i = 1 To Sheets.Count

Sheets(i).[a1] = "我"

Next

End Sub

问题3：所有工作表中同一位置比如A1的值都相加，比如sheet1的A1是10，sheet2的A1是20，sheet3的A1是30，怎么算最快

老实做法：一个个切换自己去加，太多的话，人都晕了。

好快方法：=SUM(Sheet1:Sheet3!A1)

特殊方法：Sub aa()

For i = 1 To Sheets.Count

Sum = Sum + Sheets(i).[b1].Value

Next

[b4] = Sum

End Sub

可能你感觉这特殊方法vba在这有点无聊蛋疼，但有时却很有用。同样这问题，变化一下，求sheet1，sheet3，sheet5,sheet7,sheet9,sheet11中A1值的总和。

好快方法也不方便了，但vba很给力，只要小修改

Sub aa()

For i = 1 To Sheets.Count / 2 + 1

Sum = Sum + Sheets(i * 2 - 1).[a1].Value

Next

[b4] = Sum

End Sub

今天就为大家介绍到这里。