工作表中如何提取不同列中对应的数据？

sjn750710

客户服务工作中需要将一个工作表中客户所持卡号及对应的移动电话提取出来重新生成新工作表，不知如何实现？请高人指点下！先谢过了！具体内容见附件！

lu_zhao_long

原帖由 sjn750710 于 2011-3-11 16:01 发表
客户服务工作中需要将一个工作表中客户所持卡号及对应的移动电话提取出来重新生成新工作表，不知如何实现？请高人指点下！先谢过了！具体内容见附件！

使用公式我做不到，给你写一段代码吧：
Option Explicit

Public Sub PickData()
Dim FindSource As Range, FindResult As Range
Dim FirstAddress As String
Dim TempRow As Long

With Sheet1
    Set FindSource = .Range(.Cells(1, 1), .Cells(.Cells.Rows.Count, 1).End(xlUp))
    Set FindResult = FindSource.Find(what:="卡    号", after:=.Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole)
   
    If Not (FindResult Is Nothing) Then
        FirstAddress = FindResult.Address
        
        .Range(.Cells(2, 11), .Cells(.Cells.Rows.Count, 12).End(xlUp)).Clear
        TempRow = 2
        
        Do
            .Cells(TempRow, 11) = FindResult.Offset(0, 1).Text
            .Cells(TempRow, 12) = FindResult.Offset(1, 5).Text
            TempRow = TempRow + 1
            Set FindResult = FindSource.FindNext(after:=FindResult)
        Loop Until (FindResult.Address = FirstAddress)
    End If
End With

End Sub

tianqy1984

楼主提出的问题可以用公式解，但是需要在原表上加一个判断的辅助列，并且对这列进行一次筛选，楼主可以看下附件。

具体的来讲，在Sheet1中的L列（即标志列），筛选出“不等于0”的数字，然后将其复制到Sheet2（即“客户卡号与手机号”表） 的A列中（注：从A2开始，保留标题），即可在B列和C列根据公式自动提取出客户的卡号和手机号了。

目前来讲，我还没有想到更简单的用函数的做法，这个方法其实也就是只做一个筛选而已，其他的都会根据公式自动计算，楼主可以操作一下。 客户卡号与手机号提取.rar (23.09 KB, 下载次数: 82)

2011-3-12 23:12 上传

点击文件名下载附件

AVEL

不用添加辅助列：
SHEET1,
N2单元格输入:
=INDIRECT("b"&SMALL(IF($A$3:$A$300=$A$3,ROW($A$3:$A$300)),ROW(A1))) ctrl+shift+enter 下拉
O2单元格输入：
=INDIRECT("b"&SMALL(IF($A$3:$A$300=$A$3,ROW($A$3:$A$300)),ROW(A1))+1)  ctrl+shift+enter 下拉
P2单元格输入：
=INDIRECT("f"&SMALL(IF($A$3:$A$300=$A$3,ROW($A$3:$A$300)),ROW(A1))+1)  ctrl+shift+enter 下拉

sjn750710

谢谢楼上的三位朋友的热心帮助，偶很菜的，2楼的代码怎么用呢？