|
发表于 2007-3-29 14:33:21
|
显示全部楼层
呵呵,E版,他的意思好象是要把分类求和的结果列为新表,并把企业简称对应于企业全称。
不知俺是否理解正确。
企业简称对应于企业全称的问题可以用VBA解决,俺不太熟悉,试着写了一段,测试可行
Sub Macro1()
'
' Macro1 Macro
'
'
Dim qnames As String
Dim name As String
Dim row As Integer
Dim row_1 As Integer
Dim y As Integer
Dim x As Integer
For row = 2 To 1000
Sheets("sheet1").Select
If Cells(row, 1) = Empty Then Exit For
y = Len(Cells(row, 1))
name = Mid(Cells(row, 1), 1, y)
Sheets("2007.03").Select
For row_1 = 3 To 1000
If Cells(row_1, 2).Value = Empty Then Exit For
For x = 1 To 10
qnames = Mid(Cells(row_1, 2), x, y)
If qnames = name Then
Sheets("2007.03").Cells(row_1, 3).Value = Sheets("sheet1").Cells(row, 1)
Sheets("2007.03").Cells(row_1, 4).Value = Sheets("sheet1").Cells(row, 2)
End If
Next x
Next row_1
Next row
End Sub
[ 本帖最后由 鹤影 于 2007-4-1 20:05 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?立即注册
×
|