EXCEL中某列值的長度由固定的5變成變數時怎么修改代碼？
表1和表2比對
表3中是表1有表2沒有的全拷貝進來
表4是表1和表2同時又的全部拷貝進來
代碼如下：
Private Sub CommandButton1_Click()
n1 = Sheets(1).Range("C" & 65535).End(xlUp).Row
n2 = Sheets(2).Range("C" & 65535).End(xlUp).Row
For i = 2 To n1
t = 0
For j = 2 To n2
If UCase(Trim(Left(Sheets(1).Range("C" & i), 5))) = UCase(Trim(Left(Sheets(2).Range("C" & j), 5))) Then
t = 1
End If
Next j
If t = 0 Then
x = x + 1
Sheets(3).Range("B" & x) = Sheets(1).Range("B" & i)
Sheets(3).Range("C" & x) = Sheets(1).Range("C" & i)
Sheets(3).Range("D" & x) = Sheets(1).Range("D" & i)
Sheets(3).Range("E" & x) = Sheets(1).Range("E" & i)
Sheets(3).Range("F" & x) = Sheets(1).Range("F" & i)
End If
Next i
For i = 2 To n1
t = 0
For j = 2 To n2
If UCase(Trim(Left(Sheets(1).Range("C" & i), 5))) = UCase(Trim(Left(Sheets(2).Range("C" & j), 5))) Then
t = 1
Exit For
End If
Next j
If t = 1 Then
y = y + 1
Sheets(4).Range("B" & y) = Sheets(1).Range("B" & i)
Sheets(4).Range("C" & y) = Sheets(1).Range("C" & i)
Sheets(4).Range("D" & y) = Sheets(1).Range("D" & i)
Sheets(4).Range("E" & y) = Sheets(2).Range("E" & j)
Sheets(4).Range("F" & y) = Sheets(2).Range("F" & j)
End If
Next i
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/117016.html
上一篇：安裝研發服務器