Raffronto incrociato secondario ()
Application.ScreenUpdating = falso
R fioca come gamma
La WS fioca come manuale
Regolar la WS = manuali (“riconciliare„)
Regolar r = la WS. Gamma (“B5„, la WS. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1)
r.FormulaR1C1 = “=IF (ISNA (VLOOKUP (RC [- 1], sistema! C: C, 1, FALSI)), """", VLOOKUP (RC [- 1], sistema! C: C, 1, FALSI))„
r.Offset (, 1).FormulaR1C1 = “=IF (ISNA (VLOOKUP (RC [- 2], sistema! C [- 1]: C, 2, FALSI)), """", VLOOKUP (RC [- 2], sistema! C [- 1]: C, 2, FALSI))„
r.Resize (, 2).Copy
Application.DisplayAlerts = falso
r.Resize (, xlPasteValues 2).PasteSpecial
Application.CutCopyMode = falso
Regolar r = la WS. Gamma (“B5„, la WS. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1)
r.EntireRow.RowHeight = 15
r.Resize (, 1).Offset (, -1) .SpecialCells (xlCellTypeBlanks) .EntireRow.Delete
Application.DisplayAlerts = allineano
Application.ScreenUpdating = allineano
Sommergibile dell'estremità
|