impartirea valorile din doua coloane fiecare la fiecare

Ce este nou in Microsoft Excel 2016?
Informatii despre cum se utilizeaza Microsoft Excel 2016
Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
Închis
Hexman
Mesaje: 184
Membru din: Joi Ian 07, 2016 11:16 am

impartirea valorile din doua coloane fiecare la fiecare

Mesaj de Hexman » Mie Iun 13, 2018 9:00 am

Salutare,

Am doua coloane A si B, randurile din cele doua coloane sunt variabile de asemenea si valorile acestora.

Cod: Selectaţi tot

+---+---+
| A | B |
+---+---+
| 2 | 4 |
| 5 | 6 |
|   | 2 |
|   | 8 |
+---+---+
Cum pot impartii fiecare valoare din coloana A la fiecare valoare din coloana B.
2/4
2/6
2/2
2/8
5/4
....

?

Multumesc!

IPP
Moderator
Moderator
Mesaje: 4196
Membru din: Mie Iul 29, 2009 7:26 am
Localitate: Cluj-Napoca

Re: impartirea valorile din doua coloane fiecare la fiecare

Mesaj de IPP » Mie Iun 13, 2018 1:20 pm

Buna ziua

Atasat aveti spre testare o propunere folosind macro.
Obiectiv: impartierea fiecarei valori (incepand cu A2) cu fiecare valoare (incepand cu B2) si afisarea rezultatelor (incepand cu C2)

Am presupus ca informatia e corecta si "compacta" adica fara informatie de tip text, celule goale etc.

Am folosit urmatorul cod:

Cod: Selectaţi tot

Sub Impartire()

'IPP - 13.06.2018

Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

Sheets("Sheet1").Select
Range("C2:C1000000").ClearContents

For Each c In Range("A2:A" & Range("A1000000").End(xlUp).Row)
 For Each d In Range("B2:B" & Range("B1000000").End(xlUp).Row)
  With Range("C1000000").End(xlUp).Offset(1, 0)
  .Value = c / d
  End With
 Next d
Next c

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub
Pentru testare: deschideti fisierul atasat, activati macro/continutul si rulati macro

IP
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Închis

Înapoi la “Intrebari despre Excel 2016”