在一组书句中取数,急急急

zaq03 · 发表于 2009-1-22 12:44

A    B C D
债券全称    帐面价值债券全称    帐面价值
2004年凭证式一期5年    6,819,455.57
2004年凭证式二期5年    114,282,893.47
2004年凭证式四期5年    106,343,434.54
05太平人寿次级债    1,505,659,402.29
06人保次级债    1,001,469,649.19
06太平洋人寿次级债    2,180,270,083.95
06专项43ZX    112,808,433.40
2007年第二十一期中央银行票据    21,525,598,369.15
2007年第四十六期中央银行票据    25,516,366,850.61
2007年第七十四期中央银行票据    19,320,275,028.83
2007年第九十期中央银行票据    12,164,985,922.90
2007年第一百期中央银行票据    23,269,143,584.02
07阳光财险次级债    1,028,310,355.66
2007年凭证式二期3年    218,106,543.77
2007年凭证式二期5年
2007年凭证式三期3年    281,033,693.79
2007年凭证式三期5年    365,480,808.24
2007年凭证式四期3年    190,816,172.82
2007年凭证式四期5年    65,788,380.65
中金08次级债    513,134,975.14
08人保次债1期    287,139,881.15
08人保次债2期    287,135,510.96
08人保次债3期    234,925,481.48
08人保次债4期    234,921,911.20
98国债2    93,476,388,798.11

求A带有“次债”和“次级”显示在C,B的数字放在D.结果如下
C D
债券全称    帐面价值
05太平人寿次级债    1,505,659,402.29
06人保次级债    1,001,469,649.19
06太平洋人寿次级债    2,180,270,083.95
07阳光财险次级债    1,028,310,355.66
中金08次级债    513,134,975.14
08人保次债1期    287,139,881.15
08人保次债2期    287,135,510.96
08人保次债3期    234,925,481.48
08人保次债4期    234,921,911.20

求教.rar (2.65 KB, 下载次数: 7)

[ 本帖最后由 zaq03 于 2009-1-22 13:27 编辑 ]

dsp5000 · 发表于 2009-1-22 13:17

请发附件说明问题

zaq03 · 发表于 2009-1-22 13:28

我上传数据了,二楼给看看

corvine99 · 发表于 2009-1-22 14:03

Private Sub CommandButton1_Click()
For Each cl In Range("a1:" & Range("a65536").End(xlUp).Address)
If InStr(1, cl.Value, "次债") > 0 Or InStr(1, cl.Value, "次级债") > 0 Then
Range("c" & (cl.Row)).Value = cl
Range("b" & (cl.Row)).Copy Destination:=Range("d" & (cl.Row))
End If
Next
End Sub

corvine99 · 发表于 2009-1-22 14:04

见附件。。。。。

zaq03 · 发表于 2009-1-22 14:15

太谢谢了！
能不能直接用公式啊？

dsp5000 · 发表于 2009-1-22 16:36

原帖由 zaq03 于 2009-1-22 14:15 发表
太谢谢了！
能不能直接用公式啊？

公式法，见附件

求教.rar (3.15 KB, 下载次数: 10)

zaq03 · 发表于 2009-1-23 10:28

太牛了，谢谢，各位大虾！

		自动登录	找回密码
密码			免费注册

[求助] 在一组书句中取数,急急急