查看: 1653|回复: 5
收起左侧

[已解决] Excel公式问题!

 关闭 [复制链接]
qagn1134
发表于 2009-1-8 11:26:03 | 显示全部楼层 |阅读模式
在A1输入数值,比如1 2 3这些数字,在B1输入1,那些在C1显示相同的数字个数1!要是在B1输入1  2,那么在C1会显示结果2这样!这种公式要怎么写!就是C1的结果=A1+B1相同数值个数的和!另外在同一格像A1我输入1 2 3这3个数字,那么要用什么符号区分这是3个数字而不是1 2 3!Office高手请回复啊!
my1986ss
发表于 2009-1-8 11:30:45 | 显示全部楼层
我最头疼的 问题
woalbb
发表于 2009-1-12 21:21:53 | 显示全部楼层
好像不可能。
lanmao
发表于 2009-1-13 14:33:11 | 显示全部楼层
用VBA可以实现
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. Dim Tbl As Range
  3. Dim IntA, IntB, IntC, IntD As Integer
  4. Dim StrA, StrB As String
  5. Set Tbl = ActiveCell.CurrentRegion
  6. For IntA = 1 To Tbl.Rows.Count
  7. If Sheets("Sheet1").Range("B" & IntA).Value <> "" Then
  8. IntD = 0
  9. For IntB = 1 To Len(Sheets("Sheet1").Range("B" & IntA).Value)
  10. StrA = Mid(Sheets("Sheet1").Range("B" & IntA).Value, IntB, 1)
  11. IntC = InStr(1, Sheets("Sheet1").Range("A" & IntA).Value, StrA)
  12. If IntC > 0 Then
  13. IntD = IntD + 1
  14. End If
  15. Next IntB
  16. Sheets("Sheet1").Range("C" & IntA).Value = IntD
  17. End If
  18. Next IntA
  19. End Sub
复制代码
菜鸟,高手别见笑。
伊の星
发表于 2009-1-13 14:45:32 | 显示全部楼层
excel自身貌似没可能吧?!
语言的话都是可以的。
NOMO
发表于 2009-1-13 16:21:09 | 显示全部楼层
好像没问题,能写出来
您需要登录后才可以回帖 登录 | 快速注册

本版积分规则

手机版|杀毒软件|软件论坛| 卡饭论坛

Copyright © KaFan  KaFan.cn All Rights Reserved.

Powered by Discuz! X3.4( 沪ICP备2020031077号-2 ) GMT+8, 2025-10-10 18:04 , Processed in 0.117472 second(s), 16 queries .

卡饭网所发布的一切软件、样本、工具、文章等仅限用于学习和研究,不得将上述内容用于商业或者其他非法用途,否则产生的一切后果自负,本站信息来自网络,版权争议问题与本站无关,您必须在下载后的24小时之内从您的电脑中彻底删除上述信息,如有问题请通过邮件与我们联系。

快速回复 客服 返回顶部 返回列表