[已解决]提取字符比较

by201

a1与d1的第一个字符相同在e1填写1不同为0
b1与d1的第二个字符相同在f1填写1不同为0
c1与d1的第三个字符相同在g1填写1不同为0

最佳答案

月排行榜 / 总排行榜

baksy

2016-2-11 06:44

附件

跳转到最佳答案楼层

baksy

附件

tjshenjian

区分大小写=--EXACT(A1,MID($D$1,COLUMN(A1),1))
不区分大小写=N(A1=MID($D$1,COLUMN(A1),1))

sry660

1. Sub 比较填数()
   
2.     Dim arr, i&, j&
   
3.     arr = Range("a1:g" & Cells(Rows.Count, 1).End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         For j = 1 To 3
   
6.             If arr(i, j) = Mid(arr(i, 4), j, 1) Then
   
7.                 arr(i, j + 4) = 1
   
8.             Else
   
9.                 arr(i, j + 4) = 0
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
14. End Sub

复制代码