Guru do Excel e Power BI

renaneemm escreveu: ↑07 Jul 2021 às 09:46 Segue uma imagem do resultado
É estranho pois aqui as fórmulas que passei retornam resultados diferentes dos seus. Veja na imagem abaixo e no arquivo anexado.

Nem sempre tem a divisão para todos, este é o problema, pois depende do 1,2,3 que selecionar na coluna C:C
Não entendi. Qual o significado desses valores da coluna C? Eles devem ser considerados nos cálculos da distribuição dos valores? E os valores da coluna J ?
O único critério que você informou antes foi este ~~~> "Tenho uma coluna de valores que distribuo entre 3 clientes, e tento fazer com que no final, a soma de cada um dos 3 sejam o mais próxima possível."

osvaldomp escreveu: ↑10 Jul 2021 às 22:30 Olá, @renaneemm .

Veja se a solução por macro que está no arquivo anexado lhe atende.

renaneemm escreveu: ↑12 Jul 2021 às 09:53 em alguns casos, como no da imagem, com set de 2 na J11, ele coloca o valor em apenas uma.
Esse "erro" (que na prática não é um erro pois o que importa é o total recebido por cada um), ocorre porque a fórmula considera somente valores inteiros na coluna I, conforme os seus exemplos anteriores, porém você introduziu valores decimais.
Para trabalhar também com valores decimais basta remover a função INT() das fórmulas. Cole uma cópia do código abaixo, que já está atualizado sem a função INT(), no lugar do existente no arquivo que postei.

Sub DistribuiValores()
 Dim vArr As Variant, k As Long, rng As Range, x As Long
  Application.ScreenUpdating = False
  [K4:M50] = "": k = 100
  Set rng = Range("K4:M" & Cells(Rows.Count, 9).End(3).Row)
  rng(1, 1).Resize(rng.Rows.Count) = "=IF(J4=1,CHOOSE(RANDBETWEEN(1,2),0,I4),IF(J4=2,CHOOSE(RANDBETWEEN(1,2),0,I4/2),I4/J4))"
  rng(1, 2).Resize(rng.Rows.Count) = "=IF(AND(J4=1,K4>0),0,IF(J4=1,CHOOSE(RANDBETWEEN(1,2),0,I4),IF(AND(J4=2,K4=0),I4/2,IF(J4=2,CHOOSE(RANDBETWEEN(1,2),0,I4/2),I4/J4))))"
  rng(1, 3).Resize(rng.Rows.Count) = "=I4-K4-L4"
  For x = 1 To 1000
   ActiveSheet.Calculate
   If Evaluate("MAX(K2:M2)-MIN(K2:M2)") = 0 Then vArr = rng.Value: Exit For
   If Evaluate("MAX(K2:M2)-MIN(K2:M2)") < k Then vArr = rng.Value: k = Evaluate("MAX(K2:M2)-MIN(K2:M2)")
  Next x
  Range("K4").Resize(rng.Rows.Count, 3).Value = vArr
End Sub

renaneemm escreveu: ↑13 Jul 2021 às 08:03 Está excelente com este código.
Se você se refere ao primeiro código, devido à função INT(), o "erro" ocorrerá sempre que o valor a ser distribuído for menor do que o número indicado de clientes, ou seja, se I < J.
... apenas um vou alterar manualmente.
Para facilitar a identificação do "erro" você pode aplicar Formatação Condicional, veja abaixo.

osvaldomp escreveu:

renaneemm escreveu: ↑13 Jul 2021 às 08:03 Está excelente com este código.
Se você se refere ao primeiro código, devido à função INT(), o "erro" ocorrerá sempre que o valor a ser distribuído for menor do que o número indicado de clientes, ou seja, se I < J.
... apenas um vou alterar manualmente.
Para facilitar a identificação do "erro" você pode aplicar Formatação Condicional, veja abaixo.

Formatação Condicional:
1. selecione a tabela, por exemplo I4:M20
2. menu Página Inicial | Formatação Condicional | Nova Regra | Usar uma fórmula ...
3. na caixa de fórmula cole uma cópia desta fórmula ~~~> =$J4<>CONT.SE($K4:$M4;">0")
4. formate como desejar