回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公司
|