MS Excel

Ja v tom nevidím žiadny problém.citovat

A v čom by som ti mal poradiť? Ja jasnovidec nie som. Na tvoje matice nedovidím.citovat

To pôvodné nezredukované pole zapíš do pomocného sheetu a použi funkcie sum, min a max. Zredukuj a vráť späť do poľa.

Ja načítam dáta do poľa z oblasti začínajúcej v A1, za pomoci nasledovného kódu potom pole zredukujem:Sub ArrayReduced()
Dim myRng As Range, tmpSh As Workbook, i As Integer, j As Integer, myArr
Set myRng = [A1].CurrentRegion
Set tmpSh = Workbooks.Add(xlWBATWorksheet)
With tmpSh.Sheets(1)
myRng.Copy .[A1]
Set myRng = .[A1].CurrentRegion
With myRng
For i = .Rows.Count To 1 Step -1
If WorksheetFunction.Sum(.Rows(i)) = 0 And WorksheetFunction.Min(.Rows(i)) = 0 And WorksheetFunction.Max(.Rows(i)) = 0 Then .Rows(i).Delete
Next i
For i = .Columns.Count To 1 Step -1
If WorksheetFunction.Sum(.Columns(i)) = 0 And WorksheetFunction.Min(.Columns(i)) = 0 And WorksheetFunction.Max(.Columns(i)) = 0 Then .Columns(i).Delete
Next i
End With
End With
myArr = myRng
tmpSh.Close False
For i = LBound(myArr, 1) To UBound(myArr, 1)
For j = LBound(myArr, 2) To UBound(myArr, 2)
Debug.Print myArr(i, j)
Next j
Next i
End Sub Následne si ešte musíš poriešiť tú inverznú maticu, kód rieši akurát redukciu, ale s tým snáď poradíš, keď nie si schopný dať sem prílohu, na čo sa sanžil upozorniť ťa marjankaj.citovat

Jinak opravdu netuším, k čemu bych ty matice měl nahrávat sem.
Trebárs preto, že žiadaš radu zadarmo. Máš asi dojem, že povinnosťou ľudí tuná je radiť bez toho, aby sa autor dotazu aspoň trochu snažil sám, trebárs tým, že vloží prílohu, aby si ju riešiteľ nemusel tvoriť miesto pohodlného žiadateľa o radu. Ono by sa tieto diskusie prestali veľmi rýchlo diať, keby všetci riešitelia začali žiadať za radu nejakú platbu, to by sa žiadatelia viac začali snažiť a prestali trochu hlúpo kecať..
No, a druhý dôvod "prečo" si uviedol vo svojej odpovedi vlastne sám. Makro, ktoré ti niekto napíše, nakoniec ani nie si schopný do svojho riešenia zakomponovať, píšeš sám, že VBA sa učiť nechceš. To je potom naozaj trochu zbytočné unúvať sa s akoukoľvek snahou o pomoc.citovat

Podívej se frajere, laskavě se dej do klidu, a když máš potřebu za svoje rady dostat zaplaceno, tak neraď veřejně na internetu. Opravdu nevím, k čemu by bylo sem nahrávat moje matice 10x10, když jsem chtěl jen obecné řešení (viz odpověď luba, který mi na konkrétní příklad poslal konkrétní řešení, ale já jsem potřeboval obecné řešení, proto je udání konkrétního příkladu naprosto k ničemu). Stačilo napsat: "Něco takového se musí udělat přes makra, v excelu na to příkaz není." Případně poslat ilustrační makro třeba na matici 3x3. Za takovou věcnou radu bych byl neskonale vděčný a to makro si buď upravil nebo ho nepoužil. Jinak jsem psal, že za jakékoliv návrhy budu rád a že za ně moc děkuji. Co víc chceš? Přeposlat peníze na účet?



Jediný, kdo tady hloupě kecá jsi ty. Asi si léčíš nějaký mindrák, ale já na tvoje moralizování fakt nejsem zvědavý a jak jsem napsal výše, pokud chceš za rady platit, tak neraď ve veřejné diskuzi.



To, že jsem nepoužil tvoje makro na 25 řádků, když jsem si sám napsal skript na 8, který vyřeší uplně stejný problém je snad důvod mi neporadit nebo mě zrovna odsuzovat? Hledal jsem nejjednodušší a nejefektivnější možné řešení. Tvoje řešení to bohužel nebylo, tak jsem ho nepoužil, ale i přes to ti za ochotu byl vděčný. Je to naprosto normální a pochopitelné.

Prostě jsem hledal nejefektivnější řešení, tudíž jsem o radu poprosil na fóru, které se excelu přímo věnuje. Opravdu jsem ale netušil, jak tato komunita funguje. I když... Spíš jednotlivci...

Tímhle tuto debatu za sebe končím. Hezký den.
//

Lubo, bohužel nevím, kde se ty nulové řádky budou v matici vyskytovat, potřeboval jsem obecné řešení, ale i tak moc díky. Každopádně, jak píšu v předchozím příspěvku, problém jsem už vyřešil.citovat