Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2479|回复: 4

[已解决]请帮忙写段VBA代码

[复制链接]
发表于 2014-4-23 09:33 | 显示全部楼层 |阅读模式
本帖最后由 皮皮2 于 2014-4-23 10:27 编辑

请帮忙写段VBA代码,把数据区的数据变成方法1表里面的效果。谢谢了。。

我的求助问题 VBA.rar (173.47 KB, 下载次数: 14)
发表于 2014-4-23 09:39 | 显示全部楼层
回复

使用道具 举报

发表于 2014-4-23 09:55 | 显示全部楼层    本楼为最佳答案   
  1. Sub demo1()
  2.     Dim arr
  3.     Dim i&, j&, k&
  4.     With Worksheets("数据区")
  5.         arr = .Range(.Cells(Rows.Count, 1).End(xlUp), .Range("s1")).Value
  6.     End With
  7.     Dim result()
  8.     ReDim result(1 To UBound(arr) * (UBound(arr, 2) - 1), 1 To 4)

  9.     '列
  10.     For i = 3 To UBound(arr, 2)
  11.         '行
  12.         For j = 2 To UBound(arr)
  13.             k = k + 1
  14.             result(k, 1) = arr(j, 1)
  15.             result(k, 2) = arr(j, 2)
  16.             result(k, 3) = arr(j, i)
  17.             result(k, 4) = arr(1, i)
  18.         Next
  19.         k = k + 1
  20.         result(k, 1) = "'/"
  21.     Next
  22.     Sheets.Add
  23.     Range("a2").Resize(k - 1, 4).Value = result
  24.     Range("a1").Resize(, 4).Value = Array("M", "ID", "元素值", "元素代号")
  25. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2014-4-23 10:13 | 显示全部楼层
hwc2ycy 发表于 2014-4-23 09:55

大神,帮我弄成附件吧。谢谢了
回复

使用道具 举报

发表于 2014-4-23 10:18 | 显示全部楼层
我的求助问题 VBA.rar (172.03 KB, 下载次数: 3)
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:22 , Processed in 0.447551 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表