EXCLE中如何实现A列单元各种数据1~2 在B单元格中 生成1 2 又如3~10 在B列生成 3 4 5 。。。。10 如图

[复制链接]
查看11 | 回复1 | 2013-4-22 07:27:07 | 显示全部楼层 |阅读模式
使用宏Sub auto()Dim iDim jDim p As Integerp = 1i = Left(Cells(1, 1), InStr(1, Cells(1, 1), "~") - 1)j = Right(Cells(1, 1), Len(Cells(1, 1)) - InStr(1, Cells(1, 1), "~"))For k = i To jCells(p, 2) = kp = p + 1Next End Sub...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行