[已解决][求助]问题比较难用语言描述,请高手帮忙解决

tds_tang

gVoXs3HY.rar (5.92 KB, 下载次数: 7)

2008-5-23 14:18 上传

点击文件名下载附件
[求助]问题比较难用语言描述,请高手帮忙解决

请高手帮忙解决,谢谢!!!

最佳答案

月排行榜 / 总排行榜

masher

2008-5-23 17:04

回4楼

修改

   For Each vlva公司 In vlob字典
      ActiveSheet.Cells(vllo行号, 7).Value = vlva公司
      ActiveSheet.Cells(vllo行号, 8).Value = vlob字典.Item(vlva公司)
      vllo行号 = vllo行号 + 1
   Next vlva公司

为

   For Each vlva公司 In vlob字典
      ThisWorkbook.Sheets("新表").Cells(新的行号, 新的列号1).Value = vlva公司
      ThisWorkbook.Sheets("新表").Cells(新的行号, 新的列号2).Value = vlob字典.Item(vlva公司)
      新的行号 = 新的行号 + 1
   Next vlva公司

跳转到最佳答案楼层

masher

鼠标双击任意单元格则开始计算。

 (在程序退出前，好习惯应加一句 [Set vlob字典 = Nothing])

zajOjFHb.rar (7.45 KB, 下载次数: 9)

2008-5-23 14:46 上传

点击文件名下载附件
[求助]问题比较难用语言描述,请高手帮忙解决

[此贴子已经被作者于2008-5-23 14:50:24编辑过]

tds_tang

可以实现,谢谢楼上的

tds_tang

如果我想将结果放到另一张表上,应该怎样修改呀,兄弟

奥路菲

学习了

[em17]

masher

回4楼

修改

   For Each vlva公司 In vlob字典
      ActiveSheet.Cells(vllo行号, 7).Value = vlva公司
      ActiveSheet.Cells(vllo行号, 8).Value = vlob字典.Item(vlva公司)
      vllo行号 = vllo行号 + 1
   Next vlva公司

为

   For Each vlva公司 In vlob字典
      ThisWorkbook.Sheets("新表").Cells(新的行号, 新的列号1).Value = vlva公司
      ThisWorkbook.Sheets("新表").Cells(新的行号, 新的列号2).Value = vlob字典.Item(vlva公司)
      新的行号 = 新的行号 + 1
   Next vlva公司