Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
lovely_pink pe Simpatie.ro
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 48 ani |
|
|
TRaP
Moderator
Inregistrat: acum 7 ani
Postari: 806
|
|
Non VBA formulas in 2 columns to the right of column A, moving ODD and EVEN rows:
B1=IF(ISODD(ROW(A1));A1;"")
C1=IF(ISEVEN(ROW(A1));A1;"")
Better non-VBA solution in case data corresponding to the ODD row is on two following rows - one EVEN and one ODD:
B1=IF(COUNTIF(A1,{"FN*"})>0;A1;"")
C1=IF(COUNTIF(A1,{"TEL*"})>0;A1;"")
VBA solution:
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub |
|
|
| pus acum 5 ani |
|