|
楼主 |
发表于 2019-5-10 16:43
|
显示全部楼层
我剛才試了下,還是空值
Sub TAT璸衡()
Dim w As Workbook, n As Workbook, q As Workbook, y As Workbook, J As Workbook, S As Workbook
Set w = Workbooks(1)
Set WW = w.Worksheets(1)
Set n = Workbooks(2)
Set NN = n.Worksheets(2)
'N61 秨﹍ˇ
If Left(n.Name, 2) <> "N8" Then
WW.Range("A:B").Value = NN.Range("I:J").Value
NN.Activate
r = NN.Cells(Rows.Count, 8).End(xlUp).Row
NN.Range("h2" & ":" & "h" & r) = "=VLOOKUP(MID(B2,1,10),I:J,2,0)"
NN.Range("H1").Select
Columns("H:H").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
NN.Cells(1, 8) = "TATぱ计"
NN.Columns("i:j").Delete Shift:=xlShiftToLeft
TATㄤ筁祘
'N61挡
Else
i = 2
Do While WW.Cells(i, 1) <> ""
NN.Cells(i, 9) = WW.Cells(i, 1)
NN.Cells(i, 10) = WW.Cells(i, 2)
i = i + 1
Loop
NN.Activate
r = NN.Cells(Rows.Count, 8).End(xlUp).Row
NN.Range("h2" & ":" & "h" & r) = "=VLOOKUP(MID(B2,1,10),I:J,2,0)"
NN.Range("H1").Select
Columns("H:H").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
NN.Cells(1, 8) = "TATぱ计"
NN.Columns("i:j").Delete Shift:=xlShiftToLeft
N84筁祘
End If
End Sub
|
|