6、第6个代码,工作表一种格式转化为另外一种格式
orlHmw0Y.rar
(11.4 KB, 下载次数: 536)
Private Sub CommandButton1_Click() Dim irow%, i%, h%, l% h = 1: l = 2 '从第一个a2开始复制,l表示行,h表示列 Application.ScreenUpdating = False With Sheet3 .Range("2:65536").ClearContents '删除2至65536行的内容 irow = [a65536].End(xlUp).Row 'a列最后一非空行 For i = 2 To irow '从第2行到最后一行 Cells(i, 1).Resize(1, 4).Copy .Cells(l, h) 'resize表示重新设置大小,resize(行,列) '如[a1].resize(2,2)则表示[a1:b2] h = h + 4 '列移动4列,第一次复制到第1列,运行一遍之后就是第5列 If h > 12 Then h = 1: l = l + 1 '如果列大于12,就设置列为1,行数增加1,再次循环 Next End With Application.ScreenUpdating = True End Sub 『其实基本上都是我最近回复别人的代码,加些注释便于理解』
[此贴子已经被plxmm于2006-7-28 18:29:37编辑过] |