[已解决][求助]请高手给附件中的两个表写个代码

东方智彩 · 发表于 2009-9-25 22:51

如题,详看附件,谢谢!

sh0yoZf4.rar (13.15 KB, 下载次数: 1)

搁浅2008 · 发表于 2009-9-25 22:57

没看出来什么意思

函数小菜鸟 · 发表于 2009-9-25 23:23

DzotBDYc.rar (15.32 KB, 下载次数: 13)

windvchina · 发表于 2009-9-25 23:25

C列的数据分列。。。

紧密显示就是直接分列。

按位显示就是01在01的位置，03在03的位置。

wsfsy · 发表于 2009-9-25 23:45

有更简单的方法：

Sub ss()
Dim r%, m%, n%
r = Sheet2.[c65536].End(xlUp).Row
m = 2
For n = 4 To 13
   For i = 2 To r
   Cells(i, n) = Mid(Cells(i, 3).Value, m, 2)
   Next i
m = m + 3
Next n
End Sub

flPbV2Ib.rar (19.18 KB, 下载次数: 1)

东方智彩 · 发表于 2009-9-25 23:57

谢谢版主及老师们的指教,速度都好快呀！

zsd5237 · 发表于 2009-9-26 06:18

学习[em02][em02]

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

[已解决][求助]请高手给附件中的两个表写个代码

浏览过的版块