Question

求EXCEL宏编写

把插入宏的EXCEL回复给我即可。
很多网友可能把问题想的太简单。我要做的是个特大的数据库维护工作。以上只是个简例。每一列都要根据指定条件引用上百种料号，不是VLOOKUP就可简单解决。求高手解决！！！

Answer 1

相同的编号，多行转一行？

问你怎么不回答？

Sub a()
j = 1
For i = 2 To [a65536].End(3).Row
    If Range("A" & i) <> Range("A" & i - 1) Then j = j + 1
    Range("D" & j) = Range("A" & i)
    Cells(j, 256).End(xlToLeft).Offset(, 1) = Range("B" & i)
Next
End Sub

运行结果例子。

追问

相同的编号，多行转一行。是这个思路。
但转换后需要再行“拣配”：比如E列只允许放3、7；F列只允许放4、8；G列只允许放2、5 ......(这些条件要求我在宏之外的某个区域我可以自由填加，如果写死在宏里就没有意义了）
aa 3 4 2
bb 7 8 5 6 10 9

追答

Sub a()
j = 1
For i = 2 To [a65536].End(3).Row
    If Range("A" & i) <> Range("A" & i - 1) Then j = j + 1
    Range("D" & j) = Range("A" & i)
    if not rows(1).find(range("B"&i),lookat:=xlwhole) is nothing then
       k= rows(1).find(range("B"&i),lookat:=xlwhole).column
    end if
    Cells(j, k)= Range("B" & i)
Next
End Sub

用这个代码试试吧。

追问

我试了，很好很强大。我不懂宏编写，但好像只预留了第一行做条件设定使用。实际运用中需设定100行左右的条件，即同一列可拣配100种数值。(不知可否实现，求解）
条件设定
3 4 2
7 8 6 10 9
转换后
aa 3 4 2
bb 7 8 6 10 9

追答

Sub a()
j = 101
For i = 2 To [a65536].End(3).Row
    If Range("A" & i) <> Range("A" & i - 1) Then j = j + 1
    Range("D" & j) = Range("A" & i)
    if not rows("E1:IV100").find(range("B"&i),lookat:=xlwhole) is nothing then
       k= rows("E1:IV100").find(range("B"&i),lookat:=xlwhole).column
    end if
    Cells(j, k)= Range("B" & i)
Next
End Sub

追问

提示错误13，类型不匹配。

追答

Sub a()
j = 101
For i = 2 To [a65536].End(3).Row
    If Range("A" & i) <> Range("A" & i - 1) Then j = j + 1
    Range("D" & j) = Range("A" & i)
    if not Range("E1:IV100").find(range("B"&i),lookat:=xlwhole) is nothing then
       k= Range("E1:IV100").find(range("B"&i),lookat:=xlwhole).column
    end if
    Cells(j, k)= Range("B" & i)
Next
End Sub

Answer 2

如果是两个表对应的话，不用做宏，直接通过vlookup函数来取数实现
VLOOKUP函数的完整语法是这样的：
VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)
1．括号里有四个参数，是必需的。最后一个参数range_lookup是个逻辑值，我们常常输入一个0字，或者False;其实也可以输入一个1字，或者true。两者有什么区别呢？前者表示的是完整寻找，找不到就传回错误值＃N/A；后者先是找一模一样的，找不到再去找很接近的值，还找不到也只好传回错误值＃N/A。这对我们其实也没有什么实际意义，只是满足好奇而已，有兴趣的朋友可以去体验体验。
2．Lookup_value是一个很重要的参数，它可以是数值、文字字符串、或参照地址。我们常常用的是参照地址。用这个参数时，有两点要特别提醒：
A）参照地址的单元格格式类别与去搜寻的单元格格式的类别要一致，否则的话有时明明看到有资料，就是抓不过来。特别是参照地址的值是数字时，最为明显，若搜寻的单元格格式类别为文字，虽然看起来都是123，但是就是抓不出东西来的。
而且格式类别在未输入数据时就要先确定好，如果数据都输入进去了，发现格式不符，已为时已晚，若还想去抓，则需重新输入。
B）第二点提醒的，是使用时一个方便实用的小技巧，相信不少人早就知道了的。我们在使用参照地址时，有时需要将lookup_value的值固定在一个格子内，而又要使用下拉方式（或复制）将函数添加到新的单元格中去，这里就要用到“$”这个符号了，这是一个起固定作用的符号。比如说我始终想以D5格式来抓数据，则可以把D5弄成这样：$D$5，则不论你如何拉、复制，函数始终都会以D5的值来抓数据。
3．Table_array是搜寻的范围，col_index_num是范围内的栏数。Col_index_num 不能小于1，其实等于1也没有什么实际用的。如果出现一个这样的错误的值#REF!，则可能是col_index_num的值超过范围的总字段数。

Answer 3

ERP啊？
说的不是很清楚，有心无力