列输入重复的数值后自动提示输入错误

解答：1、选定你要限制输入的列（假设是A2:A20），选菜单的“数据”－“有效xìng”；

2、在许可条件中选定“自定义”，在公式一拦中，输入你要求的限制， 例如：“=COUNTIF($A$2:$A$20,A2)=1 ”。

3、你还可以在“输入信息”和“出错信息”输入一些提示信息。

不过，你一定要注意！这个功能只能在你从键盘上键入数据时有效！拷贝和粘贴数据的cāo作是无效的。

发票小写金额填充

我输入123456.52它自动给拆成￥1 2 3 4 5 6 5 2 的形式并且随我输入的长度改变而改变？

解答：我所知函数不多，我是这样做的，如有更方便的方法，请指点

例如：

在A1输入小写金额，则：

千万：B1=IF(A1>=10000000,MID(RIGHTB(A1*100,10),1,1),IF(A1>=1000000,"￥",0))

百万：C1=IF(A1>=1000000,MID(RIGHTB(A1*100,9),1,1),IF(A1>=100000,"￥",0))

十万：D1=IF(A1>=100000,MID(RIGHTB(A1*100,8),1,1),IF(A1>=10000,"￥",0))

万：E1=IF(A1>=10000,MID(RIGHTB(A1*100,7),1,1),IF(A1>=1000,"￥",0))

千：F1=IF(A1>=1000,MID(RIGHTB(A1*100,6),1,1),IF(A1>=100,"￥",0))

百：G1=IF(A1>=100,MID(RIGHTB(A1*100,5),1,1),IF(A1>=10,"￥",0))

十：H1=IF(A1>=10,MID(RIGHTB(A1*100,4),1,1),IF(A1>=1,"￥",0))

元：I1=IF(A1>=1,MID(RIGHTB(A1*100,3),1,1),IF(A1>=0.1,"￥",0))

角：J1=IF(A1>=0.1,MID(RIGHTB(A1*100,2),1,1),IF(A1>=0.01,"￥",0))

分：K1=IF(A1>=0.01,RIGHTB(A1*100,1),0)

(编者注：公式中最后一个0应改为"")

排列问题

已知1，2，3，4共4个数字符号构成的4位数的全排列有256个，如：1234，2341，3245等等，现在我需要将这256个数字全部列出，如果用手写笔算的话既麻烦又容易出错，不知可否用Excel来解决这个问题?

解答：在单元格输入公式“=1111+1000*INT((ROW()-1)/64)+100*MOD(INT((ROW()-1)/16),4)+10*MOD(INT((ROW()-1)/4),4)+MOD(ROW()-1,4)”拖放到A256。

在条件语句中如何实现符合某个时期的条件的记录进行统计

比如有1-12月份的记录单,需要实现对每个月里些数据的统计汇总/(格式如何?)

解答：以下公式,A列为日期列,B列为数据,要求计算1月份的累计:

=SUM(IF(MONTH(A:A)=1,B:B,0))

此为数组公式,在输完公式后,不要ENTER,而要CTRL+SHIFT+ENTER.

行改列(不是转置问题)

1. 原内容为行（每行5列内容共几千行）：

列1 列2 列3 列4 列5

行1 1 2 3 4 5 /行2 1 2 3 4 5 /行3 1 2 3 4 5 /以下类同… /…

2. 改为行排列（每12行5列内容共12组，排为一行）

列1 列2 列3 列4 列5 列6 列7 列8 列9 列10 ……(60列)

原1-12行 1 2 3 4 5 1 2 3 4 5 ……(60列) /原13-24行 1 2 3 4 5 1 2 3 4 5 ……(60列) /原25-36行 1 2 3 4 5 1 2 3 4 5 ……(60列) /以下类推 …

本人不会编写宏，让您见笑曾费劲手工移动录制了一个取2400行（每行5列内容）改列的宏。因原有工作表行不断增加，经常需要行改列作其它用途，录制的宏不能满足需要。烦请大家帮助写一自动循环取12行5列内容排列为一行的宏。

规律：

1. 1-12行1-5列内容排在第1行（第一行1-5列、第二行1-5列、类推，完成为60列）

2. 13-24行1-5列内容排在第2行（第13行1-5列、第14行1-5列、类推）

3. 25-36行1-5列内容排在第3行（第25行1-5列、第26行1-5列、类推）

4. 以下类推 …

解答：Sub 转换()

Dim numcol As Integer

Dim numrow As Long

Dim i As Long

Dim x As Integer

Dim numperrow As Integer

numperrow = InputBox("请输入每行要填的数据行的数目:")

Range("数据").Select

numrow = Selection.Rows.Count '数据区的行数

numcol = Selection.Columns.Count '数据区的列数

x = numperrow * numcol

Range("a1").Select

For i = 1 To numrow '以数据的每一行为单位进行剪切

Range("数据").Rows(i).Cut

ActiveSheet.Paste

Selection.Offset(, numcol).Select

If (i Mod numperrow) Then '判断是否要换行

Else: Selection.Offset(1, -x).Select

End If