Czy da się w excelu wyjąć kolumnę do "jednej" linii + komórki oddzielić przecinkami?

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» Carduin 02:05 » cVas 01:53 » bmiluch 01:14 » Martens 01:09 » wrrr 00:55 » abes99 00:49 » Fl@sh 00:48 » Bonifacyz 00:43 » skalak23 00:22 » DJopek 00:18 » Ramol 23:42 » metacom 23:33 » @GUTEK@ 23:31 » Visar 23:27 » GLI 23:26 » Soulburne 23:25 » Brauni 23:20 » Kool@ 23:12 » Kenny 23:11 » rainy 23:07 Dzisiaj przeczytano 7305 postów, wczoraj 72839 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Czy da się w excelu wyjąć kolumnę do "jednej" linii + komórki oddzielić przecinkami? , DmK 29/08/07 11:10
Mam taki problem, dostałem listę którą muszę ładnie wprowadzić do skryptu w sql. Jest to kolumna zawierająca wartości liczbowe. Potrzebuję wyjąć z niej wartości w ten sposób żeby otrzymać linię w formacie: dane,dane,dane,dane... Czy jest to wykonalne w jakiś w miarę prosty sposób?

i jednocześnie w OpenOffice , DmK 29/08/07 11:12
j.w.
W excelu manualnie , JOTEM 29/08/07 11:16
np tak:
funkcją TRANSPONUJ z kolumny do wiersza,
zapisujesz do formatu csv ze średnikami,
w dowolnym edytorze (notatnik?) zamieniasz średniki na przecinki. Razem moment roboty.
Poryjemy..zrobaczymy
1. Co do transponuj , JOTEM 29/08/07 11:25
  to funkcja tablicowa - zaznaczasz zakres komórek do jakiego ją wprowadzasz (np 100 komórek w wierszu), wpisujesz np. =TRANSPONUJ($A$1:$A$100) i zatwierdzasz SHIFT+CTRL+ENTER
  Poryjemy..zrobaczymy
2. super , DmK 29/08/07 11:49
  dzięki za informacje, obecnie siedzę na OO więc spróbuję to przenieś do niego.
3. nawet nie musisz uzywac transponuj , waski 29/08/07 11:59
  tylko np skopiowac kolumne z excela, wkleic do worda tam tabela -> zamien na tekst no i potem tylko znaki konca akapitu zamienic na przecinki
  SNAFU
  Situation Normal, All Fucked Up
  1. dzięki , DmK 29/08/07 12:04
    ta informacja też się przyda
4. działa tak jak powinno , DmK 29/08/07 12:02
  serdeczne dzięki za szybką pomoc
W VBA , ligand17 29/08/07 12:20
na przykład tak:

tekst = ""
For i = 1 To ActiveSheet.UsedRange.Rows.Count
tekst = tekst + "," + ActiveSheet.Cells(i, 1)
Next i

Być może "+" będzie trzeba zamienić na "&"
1. Acha , ligand17 29/08/07 12:22
  no i na końcu:
  
  fso.CreateTextFile("Test.txt").WriteLine tekst
  fso.CreateTextFile("Test.txt").Close
  
  Powinno zadziałać od razu.
2. to wykorzystam , DmK 29/08/07 13:29
  na następnym etapie wtajemniczenia, ponieważ w OO to raczej nie zadziała. Ale w excelu jako wygodne makro chętnie to wypróbuje.