各位老师，如何使用VBA提取自己想要的数据？

2OLEGEND · 发表于 2017-10-22 20:07

各位老师，如题所示，如何在每一行中提取出自己想要的某一个单元格，及该单元格下面一个单元格？谢谢！具体意思，看excel表格。sheet1是原始数据，由于原始数据太大，大概有几千行，只截取了一部分来作为演示。sheet2是我想要的形式。
麻烦各位老师了！

chxw68 · 发表于 2017-10-22 20:14

Sub test()
Dim r%, i%, c%, j%
Dim arr, brr
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
c = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
arr = .Range("a1").Resize(r, c)
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 1 To UBound(arr) Step 2
n = 2
For j = 2 To UBound(arr, 2)
If arr(i, j) = "O2N" Then
brr(i, 1) = arr(i, 1)
brr(i + 1, 1) = arr(i, 2)
brr(i, n) = arr(i, j)
brr(i + 1, n) = arr(i + 1, j)
End If
Next
Next
End With
With Worksheets("sheet2")
.Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
End With
End Sub

复制代码

chxw68 · 发表于 2017-10-22 20:15

详见附件。

2OLEGEND · 发表于 2017-10-22 20:19

chxw68 发表于 2017-10-22 20:15
详见附件。

老师能详细的说一下吗？有个别数据还是对不上，但是没关系。听听老师的思路

2OLEGEND · 发表于 2017-10-22 21:52

chxw68 发表于 2017-10-22 20:14

谢谢老师的解答，有几个问题需要问一下老师。1，中间为什么会有几行只输出了O2N项，而其下面的数据丢失了；2，这个程序可以应用到几千行以上吗？问题可能有点笨，希望老师海涵！
谢谢老师了！

chxw68 · 发表于 2017-10-22 22:04

前面代码有问题。第1个问题的原因是表格最右边还有一列数据。第2个不存在这样的问题。

2OLEGEND · 发表于 2017-10-22 22:15

chxw68 发表于 2017-10-22 22:04
前面代码有问题。第1个问题的原因是表格最右边还有一列数据。第2个不存在这样的问题。

非常感谢老师的回答！
这次看着是对的，另外还有个问题，就是如果我想提取其他的数据，比如O2H的话，就只需要将代码12行其中的O2N替换了就可以了吗？只要是表格单元格中的数据，做简单替换就可以了吗？
在此感谢老师的回答！！

chxw68 · 发表于 2017-10-22 22:18

你换了试试

2OLEGEND · 发表于 2017-10-22 22:28

chxw68 发表于 2017-10-22 22:18
你换了试试

老师您好，我换了下试试，可以的。
但是我把代码复制过去，为什么输出的是您之前的表格，就是其中有些数据是丢失的，而不是您后来发的那个表格，是代码中出了问题还是怎么？
谢谢！提的问题比较笨，希望您理解！

2OLEGEND · 发表于 2017-10-22 22:58

chxw68 发表于 2017-10-22 22:18
你换了试试

感谢老师的指导！数据已经调试好了，非常感谢！

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

[求助] 各位老师，如何使用VBA提取自己想要的数据？