【20金币挑战题】依次添加同一内容的出现次数

0Mouse

【题目】分别在Excel和Word表格内的”幸福“后添加其出现的次数。
处理前：

处理后：

【要求】
       1.批量完成；
       2.Excel仅用Excel软件完成，Word仅用Word软件完成。
【说明】
       1.软件版本不限，03、07、10均可；
       2.解答方法不限，查找、替换、域、函数公式、VBA……
       3.答对一题者加8金币，两题都答对者加20金币；
       4.答题对象：本论坛所有会员；
       5.严禁灌水，否则扣20金币处理。
【开帖时间】2012-5-13（星期天）20:00
【题目附件】

hrpotter

EXCEL VBA

1. Sub 转换()
   
2.     Dim ar
   
3.     Dim i As Integer, j As Integer, k As Integer
   
4.     ar = Range("b2").CurrentRegion
   
5.     For i = 1 To UBound(ar)
   
6.         For j = 1 To UBound(ar, 2)
   
7.             If ar(i, j) = "幸福" Then
   
8.                 k = k + 1
   
9.                 ar(i, j) = ar(i, j) & k
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     Range("b2").CurrentRegion.ClearContents
    
14.     Range("b2").Resize(UBound(ar), UBound(ar, 2)) = ar
    
15. End Sub

复制代码

WORD VBA

1. Sub 转换()
   
2.     Dim ocell, k As Integer
   
3.     For Each ocell In ActiveDocument.Tables(1).Range.Cells
   
4.         If ocell.Range.Text Like "*幸福*" Then
   
5.             k = k + 1
   
6.             ocell.Range.InsertAfter k
   
7.         End If
   
8.     Next ocell
   
9. End Sub

复制代码

lg7998

现占个位置，用Word回答，exccel想想在答

mn860429

先发个Excel中的vba版

1. Sub mn()
   
2. Dim rng As Range, k As Integer
   
3. For Each rng In Range("b2:g16")
   
4. If rng.Value = "幸福" Then
   
5. k = k + 1
   
6. rng.Value = "幸福" & k
   
7. End If
   
8. Next rng
   
9. End Sub

复制代码

心灯芯

Sub tt()
    Dim a As Integer
    Dim rng As Range
    a = 1
    For Each rng In Range("B2:G16")
        If rng = "幸福" Then
        rng = "幸福" & a
        a = a + 1
        End If
    Next
End Sub

sliang28

word的不会，对word一点都不懂，只会在上面打几个字。

liuho1

Excel：
F5定位-常量-文本，单元格输入：
="幸福"&(COUNTIF(INDIRECT("A1:G"&(ROW()-1)),"幸福*")+COUNTIF(INDIRECT("R"&ROW()&"C1:R"&ROW()&"C"&(COLUMN()-1),$A$1),"幸福*")+1)
Ctrl+回车，完成。
Word：
Ctrl+F查找"幸福",替换-更多-格式-样式-目录1，全部替换；
选择第一"幸福"格子，鼠标右键-编号-自定义"幸福1"，确定；
Ctrl+F查找"幸福",替换-更多-格式-样式-无样式，全部替换；（将"幸福"字去掉）

ws278106483

只用电子表格做出来了，用WORD不知道怎么弄。。

suntree

只做了EXCEL的，VBA编的

byhdch

byhdch