菜鸟谈VBA最最基础入门《原创》

Mapleaf12138

86233524 发表于 2018-10-7 23:26
楼主，我有个问题。
通过sheet1里面的身份证号码，在sheet2里面找到该行，把该行该身份证的手机号码，给复 ...

1. Sub test()
   
2.   Dim s1
   
3.   Dim s2
   
4.   Dim s_range
   
5.   Set s1 = Sheets(1)
   
6.   Set s2 = Sheets(2)
   
7.   col_s_1 = s1.Rows(1).Find("身份证").Column
   
8.   col_p_1 = s1.Rows(1).Find("电话").Column
   
9.   col_s_2 = s2.Rows(1).Find("身份证").Column
   
10.   col_p_2 = s2.Rows(1).Find("电话").Column
    
11.   maxR = s1.Cells(65536, col_s_1).End(xlUp).Row
    
12.   arr = s1.Range(s1.Cells(2, col_s_1), Cells(maxR, col_s_1))
    
13.   i = 2
    
14.   For Each a In arr
    
15.     Set s_range = s2.Columns(col_s_2).Find(a)
    
16.     If Not s_range Is Nothing Then
    
17.       s_row = s_range.Row
    
18.       s2.Cells(s_row, col_p_2).Copy s1.Cells(i, col_p_1)
    
19.     End If
    
20.     i = i + 1
    
21.   Next
    
22. End Sub
    

复制代码

Mapleaf12138

86233524 发表于 2018-10-7 23:26
楼主，我有个问题。
通过sheet1里面的身份证号码，在sheet2里面找到该行，把该行该身份证的手机号码，给复 ...

Sub test()
    Dim s1
    Dim s2
    Dim s_range
    Set s1 = Sheets(1)
    Set s2 = Sheets(2)
    col_s_1 = s1.Rows(1).Find("身份证").Column  'sheet1身份证所在的列
    col_p_1 = s1.Rows(1).Find("电话").Column    'sheet1电话所在的列
    col_s_2 = s2.Rows(1).Find("身份证").Column  'sheet2身份证所在的列
    col_p_2 = s2.Rows(1).Find("电话").Column    'sheet2电话所在的列
    maxR = s1.Cells(65536, col_s_1).End(xlUp).Row  '取sheet1最后一行行号
    arr = s1.Range(s1.Cells(2, col_s_1), Cells(maxR, col_s_1))    'sheet1中所有身份证号的数组
    i = 2
    For Each a In arr
        Set s_range = s2.Columns(col_s_2).Find(a)
        If Not s_range Is Nothing Then
            s_row = s_range.Row
            s2.Cells(s_row, col_p_2).Copy s1.Cells(i, col_p_1)
        End If
        i = i + 1
    Next
End Sub

02761752696

学习       学习   

86233524

Mapleaf12138 发表于 2018-10-9 14:16
Sub test()
    Dim s1
    Dim s2

十分感谢呀。谢谢

1404526012

看看VBA的真实面目

charles.hu

新手学习中

ynkmyxs

好东西，学习了！

wangshui320

非常实用，谢谢楼主分享

liuzhanqiang

感觉看着还是比较眼累呀

smallfat1993

对学习VBA十分有帮助，感谢楼主