Ahojte,
On Jan 3, 2008 10:05 AM, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> dup napsal(a):
> > =CONCATENATE(A1;"oddelovac";A2;"oddelovac";A3)
> Tak to pomohlo nicměně, takhle si to neporadí s tím, když v bunce není
> hodnota, já bych ty prázdný vůbec nechtěl... jsou prázdný ve smyslu
> obsahujou vzorec, co vyhodnotil podmínku jako že má vložit "".
vlozte si do dokumentu nasledujici makro:
Public Function MyConcat(aRange, aSplitter as String)
Dim tmpResult As String
Dim i, j as Integer
tmpResult = ""
For i = LBound(aRange(),2) To UBound(aRange(),2)
For j = LBound(aRange()) To UBound(aRange())
if aRange(j,i) <> "" And aRange(j,i) <> 0 then
if tmpResult <> "" then
tmpResult = tmpResult + aSplitter
end if
tmpResult = tmpResult + aRange(j, i)
end if
Next
Next
MyConcat = tmpResult
End Function
potom muzete pouzit nasledujici konstrukci:
=MyConcat(A1:A20;",")
-- pepa cacek
