M Office søge et tal i kolonne

[karolczyzycki]

Hej.
Jeg har en fil 1.xls, der er opført i kolonne A, der ikke gentager numre.
Den anden fil 2.xls jeg vil kopiere de numre, alle fra den sidste fil 1<img src="http://obrazki.elektroda.net/30_1255602730_thumb.jpg" border="0" alt="M.Office wyszukiwanie numeru w kolumnie" title="M. Office søge et tal i kolonne"/> Jeg har sådan kode, der kan bruges, fordi den handling, i en anden fil.
Og på dette grundlag at udføre andre funktioner.
Men jeg ved ikke, hvordan du slutter sammen.Search

& Selection celle nummer

Kode:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

Hvis Target.Row = 5 Og Target.Column = 15 Then 'hvis den aktiveres cellen ændres (6,12)Columns ( "A: A"). Vælg 'kolonne ser på en række

On Error Resume Next

row = Selection.Find (What: = Range ( "B2"), After: = ActiveCell, LookAt: = xlWhole). Row "får antallet af celler (B2)

Cells (række, 8). Vælg 'noter kolonne 1, i overensstemmelse med showet (B2)

End If

End Sub

 

[adamas_nt]

Wykombinuj noget i mønsteretKode:

odWrs = Sheets ( "Sheet1"). Range ( "A: A"). Find (Sheets ( "Sheet2"). Range ( "A1"). End (xlDown). rækker). Row 1

doWrs = Sheets ( "Sheet1"). Range ( "A1"). End (xlDown). RowSheets ( "Sheet1"). Aktiver

Sheets ( "Sheet1"). Range (Cells (odWrs, 1), Cells (doWrs, 1)). Copy _

Sheets ( "Sheet2"). Cells (Sheets ( "Sheet2"). Range ( "A1"). End (xlDown). Row 1, 1)

 

[karolczyzycki]

Andre ting fungerer.
Men jeg havde en fejl, hvis Sheet2 var tom (og så det kunne ske), så jeg tilføjede den betingelse, at hvis hele kolonnen er tom, kopierer hele kolonnen, men noget er ikke i orden ...
Kode:

Sub Macro1 ()If (Range ( "A: A") = "") Then

Sheets ( "Sheet2"). Range ( "A: A") = Sheets ( "Sheet2"). Range ( "A: A")

Anden

wOstWrs = Sheets ( "Sheet2"). Range ( "A1"). End (xlDown). Rows

odWrs = Sheets ( "Sheet1"). Range ( "A: A"). Find (wOstWrs). Row 1

doWrs = Sheets ( "Sheet1"). Range ( "A1"). End (xlDown). Row

doOstWrs = Sheets ( "Sheet2"). Range ( "A1"). End (xlDown). Row 1Sheets ( "Sheet1"). Aktiver

Sheets ( "Sheet1"). Range (Cells (odWrs, 1), Cells (doWrs, 1)). Copy Sheets ( "Sheet2"). Cells (doOstWrs, 1)End Sub

 

[walek33]

Måske er en sådan løsning?
Kode:

Sub kopi ()

Sheets ( "Sheet2"). Aktiver

Cells (1, 1). Aktivér

ilosc_wierszy = 0

Til

ilosc_wierszy = ilosc_wierszy 1

test = ActiveCell.Offset (ilosc_wierszy, 0). Value

Mens loop test

ønskede = ActiveCell.Offset (ilosc_wierszy - 1, 0). Value

Celler (ilosc_wierszy 1, 1). Aktivér

Sheets ( "Sheet1"). Aktiver

Columns ( "A: A"). Select

row = Selection.Find (hvad: = ønskede, efter: = ActiveCell, LookAt: = xlWhole). Row 1

Cells (række, 1). Vælg

ilosc_wierszy = 0

Til

ilosc_wierszy = ilosc_wierszy 1

test = ActiveCell.Offset (ilosc_wierszy, 0). Value

Mens loop test

Range (ActiveCell, ActiveCell.Offset (ilosc_wierszy - 1, 0)). Select

Selection.Copy

Sheets ( "Sheet2"). Aktiver

Selection.PasteSpecial Paste: = xlPasteValues, drift: = xlNone, skipblanks: = False, Transpose: = False

End Sub

 

[adamas_nt]

karolczyzycki skrev:

Uden en sti ...
Hvad kommando åbner Excel-fil?