Hej eksperter. Jeg sidder og skal kopiere en masse data fra en hjemmeside til et excelark. teksten ser ud som her
blablabl blaa bla bla bla Jeg kopiereralle linier på en gang. Den sætter det ind i et felt men jeg vil gerne have hver linie delt ud i kollonner så jeg kan flette fra dem ?? ovenstående som 3 kolonner... Hjælp !!
Det er formanden jeg vil kopierer ind så der i kolonne a står navn i kolone b adresse m.v - vil gerne kunne nøjes med at kopiere det hele på en gang i stedet for line efter linie ? jeg kan kun få det til at stå på a1 a2 a3 osv..
Hvis jeg stiller mig i f.eks. celle A1 og trykker indsæt, så ser det da fint nok ud - pænt fordelt på 4 kolonner og 8 rækker (hvis man tager udskriv med) - klart jeg har websidens formatering med ind, da jeg indsætter som HTML (Excel 2007)
Jeg har 2003 - det er fordi du kopierer det hele, jeg skal kun bruge navn , adresse m.m på formand så det er ikke alle data fra linket der skal kopieres ind.
Data på siden ligger i flere rækker, så det vil de også gøre nå de kopieres ind i Excel, men du kan markere hele det indsatte område, og så køre denne makro
Public Sub MergeCellInfo() Dim lCol As Long Dim lRow As Long Dim sValue As String Dim rTemp As Range
' Merge values For lCol = 1 To Selection.Columns.Count sValue = "" For lRow = 1 To Selection.Rows.Count ' Collect value sValue = sValue & CStr(Selection.Cells(lRow, lCol).Value) & Chr(10) & "" Next lRow ' Remove last vbCrLf sValue = Left(sValue, Len(sValue) - 1) ' Insert value Selection.Cells(1, lCol).Value = sValue Next lCol
' Clear other rows Set rTemp = Selection rTemp.Columns.Width = 100 ' Resize to clear other rows Set rTemp = rTemp.Offset(1, 0).Resize(rTemp.Rows.Count - 1) rTemp.Clear Set rTemp = Nothing End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.