求助

曹家二少 · 发表于 2013-8-3 22:20

求助 .zip (7.74 KB, 下载次数: 17)

笑着...两年过去 · 发表于 2013-8-3 22:42

=IFERROR(VLOOKUP($A2,OFFSET($K:$L,,MATCH(B$1,$M$1:$Y$1,)),2,),"")

复制代码

右拉下拉

曹家二少 · 发表于 2013-8-3 22:59

笑着...两年过去发表于 2013-8-3 22:42
右拉下拉

能把我的附件做好传一下么，谢谢

笑着...两年过去 · 发表于 2013-8-3 23:03

曹家二少发表于 2013-8-3 22:59
能把我的附件做好传一下么，谢谢

能大方点，送我几支花么，嘿嘿

求助.zip (8.32 KB, 下载次数: 5)

曹家二少 · 发表于 2013-8-3 23:24

{:soso_e163:}{:soso_e163:}非常感谢

曹家二少 · 发表于 2013-8-3 23:26

是不是我表达有误，我是想将左边的表变成右边的

dajiahaoxinku12 · 发表于 2013-8-3 23:37

本帖最后由 dajiahaoxinku12 于 2013-8-3 23:59 编辑

Sub 变形()
arr = Range("a2:h" & Range("a65536").End(3).Row)
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) * 2)
      For k = 1 To UBound(arr, 2) - 1
         For i = 1 To UBound(arr)
         If IsError(arr(i, k + 1)) Then arr(i, k + 1) = -1
         If arr(i, k + 1) > 0 Then
            m = m + 1
            brr(m, k * 2 - 1) = arr(i, 1)
            brr(m, k * 2) = arr(i, k + 1)
            End If
      Next
      m = 0
      Next
   Range("l2").Resize(UBound(brr), UBound(arr, 2) * 2) = brr
End Sub

dajiahaoxinku12 · 发表于 2013-8-3 23:59

…………………………………………………………………………

曹家二少 · 发表于 2013-8-4 00:14

能不通过VBA么

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

[求助] 求助