Excel vba：按照标题提取需求的列信息

cjc209 · 发表于 2022-5-13 15:51

一键全部生成

x-xx-xx · 发表于 2022-5-13 15:56

本帖最后由 x-xx-xx 于 2022-5-13 16:01 编辑

https://club.excelhome.net/forum ... 625885&pid=10979214

Set 编号01_工作表 = Worksheets("原始数据")

编号02_数组 = 编号01_工作表.UsedRange.Value

Set 编号03_工作表 = Worksheets("需求")

编号04_数组 = 编号03_工作表.UsedRange.Value

S20220310_151909_xx 编号02_数组, 编号04_数组

编号03_工作表.Activate
编号03_工作表.Cells.ClearContents
编号03_工作表.Range("A1").Resize(UBound(编号04_数组, 1), UBound(编号04_数组, 2)) = 编号04_数组

秋日的原野。 · 发表于 2022-5-13 15:56

cjc209 发表于 2022-5-13 15:51
一键全部生成

非常感谢！！！！！！！

cjc209 · 发表于 2022-5-13 16:03

秋日的原野。发表于 2022-5-13 15:56
非常感谢！！！！！！！

这些都是很简单的事

cjc209 · 发表于 2022-5-13 16:08

秋日的原野。发表于 2022-5-13 15:56
非常感谢！！！！！！！

送分啊

wangafg011 · 发表于 2022-5-13 16:40

wps
js 宏点击按钮即可.

前进者 · 发表于 2022-5-13 20:07

感谢分享，收藏起来！

lizhipei78 · 发表于 2022-5-14 14:15

Sub 字典取数()
Dim aData, aRes, i%, j%
Dim endRow
Dim Dic As Object
Set Dic = CreateObject("scripting.dictionary")
aData = Sheets("原始数据").[A1].CurrentRegion
For i = 2 To UBound(aData)
      For j = 3 To UBound(aData, 2)
         Dic(aData(i, 2) & "-" & aData(1, j)) = aData(i, j)
      Next j
Next i
With Sheets("需求")
      endRow = .Cells(Rows.Count, 1).End(xlUp).Row
      .Range("b2:j" & endRow) = Empty
      aRes = .[A1].CurrentRegion
      For i = 2 To UBound(aRes)
         For j = 2 To UBound(aRes, 2)
            aRes(i, j) = Dic(aRes(i, 1) & "-" & aRes(1, j))
         Next j
      Next i
      .Range("a1").Resize(UBound(aRes), UBound(aRes, 2)) = aRes
End With
End Sub

lizhipei78 · 发表于 2022-5-14 14:16

代码审核中，非常简单的字典取数

lizhipei78 · 发表于 2022-5-14 15:13

对于此类题目，我更愿意用函数来解决，用index+match其实速度并不慢，也不会卡
A2单元格
=INDEX(原始数据!$A:$Z,MATCH($A2,原始数据!$B:$B,0),MATCH(B$1,原始数据!$1:$1,0))
右拉下拉

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

[求助] Excel vba：按照标题提取需求的列信息

评分

最新热点 /1