Pivot in Excel senza aggregazione, per mostrare il testo, non i numeri?

Question

Diciamo che ho una tabella come questa:

Country Region Mytext 
USA  North a 
USA  South b 
Brasil North c 
Brasil South d 

Come posso ottenere un perno come questo in Excel?

Country North   South 
USA  a    b 
Brasil c    d 

Se 'mytext' fosse un numero, che potrebbe fare una tabella pivot: poiché non v'è una sola riga per combinazione del paese e regione, min = max = somma = medio e una di queste funzioni aggregato, in effetti, mostrami il risultato che voglio.

Ma cosa succede quando il campo che desidero è non numerico? Con la libreria panda di Python, posso usare il metodo dataframe.pivot() anche su campi non numerici, ma non ho trovato il modo di fare lo stesso in Excel. Potrei associare un numero a ogni riga, fare il pivot in Excel per mostrare quel numero, e quindi fare una ricerca per ottenere il testo associato, ma sembra un processo piuttosto complicato per qualcosa che dovrebbe essere davvero più semplice!

Answer 1

è possibile utilizzare il MS Power Query Add-in *. Tavoli girevoli è senza VBA giusto facile. È gratuito e molto efficace per la trasformazione dei dati.

l'M-Code

let 
    Source = Excel.CurrentWorkbook(){[Name="table1"]}[Content], 
    #"Pivot column" = Table.Pivot(Source, List.Distinct(Source[Region]), "Region", "Mytext") 
in 
    #"Pivot column" 

tua uscita

'* da MS Office 2016, è completamente integrato in Excel come Get & Transform funzione.

Answer 2

Aggiungere il MyText come etichetta di riga sotto l'etichetta Paese, quindi visualizzare la tabella pivot in formato tabulare sotto la scheda di progettazione Tabella pivot. Ripeti le etichette degli articoli per il campo dell'etichetta della riga del paese.

Answer 3

Questo può essere fatto, ma richiede a VBA di sovrascrivere temporaneamente un valore numerico "segnaposto" nella tabella pivot con del testo. Per abilitare ciò, è necessario impostare EnableDataValueEditing = True per la tabella pivot. All'aggiornamento, si effettua una ricerca sul valore numerico del segnaposto e lo si sostituisce con il testo. Convolto, sì. Soluzione alternativa, sì. Ma fa il trucco. Notare che questo "si blocca" solo fino al successivo aggiornamento della tabella pivot, quindi questo codice deve essere attivato per ogni aggiornamento.

Ecco il codice che uso per farlo in uno dei miei progetti. Mettere questo in un modulo di codice standard:

Function Pivots_TextInValuesArea(pt As PivotTable, rngNumeric As Range, rngText As Range, Optional varNoMatch As Variant) 

Dim cell As Range 
Dim varNumeric As Variant 
Dim varText As Variant 
Dim varResult As Variant 
Dim bScreenUpdating As Boolean 
Dim bEnableEvents As Boolean 
Dim lngCalculation As Long 


On Error GoTo errHandler 
With Application 
    bScreenUpdating = .ScreenUpdating 
    bEnableEvents = .EnableEvents 
    lngCalculation = .Calculation 
    .ScreenUpdating = False 
    .EnableEvents = False 
    .Calculation = xlCalculationManual 
End With 


varNumeric = rngNumeric 
varText = rngText 

pt.EnableDataValueEditing = True 
'Setting this to TRUE allow users or this code to temporarily overwrite PivotTable cells in the VALUES area. 
'Note that this only 'sticks' until the next time the PivotTable is refreshed, so this code needs to be 
' triggerred on every refresh 

For Each cell In pt.DataBodyRange.Cells 
    With cell 
     varResult = Application.Index(varText, Application.Match(.Value2, varNumeric, 0)) 
     If Not IsError(varResult) Then 
      cell.Value2 = varResult 
     Else: 
      If Not IsMissing(varNoMatch) Then cell.Value2 = varNoMatch 
     End If 
    End With 
Next cell 

errHandler: 
If Err.Number > 0 Then 
    If gbDebug Then 
     Stop: Resume 
    Else: 
     MsgBox "Whoops, there was an error: Error#" & Err.Number & vbCrLf & Err.Description _ 
     , vbCritical, "Error", Err.HelpFile, Err.HelpContext 
    End If 
End If 

With Application 
    .ScreenUpdating = bScreenUpdating 
    .EnableEvents = bEnableEvents 
    .Calculation = lngCalculation 
End With 


End Function 

Ed ecco il risultato: una tabella pivot con il testo nella zona VALORI:

Ecco la tabella di 'conversione' che dice il codice cosa visualizzare per ogni numero:

ho assegnato due intervalli denominati a questi, in modo che il mio codice k nows dove trovare la tabella di ricerca:

• tbl_PivotValues.TextValue
• tbl_PivotValues.NumericValue

... ed ecco come ho attivare la funzione e passare gli argomenti richiesti:

Option Explicit 

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) 

If Target.Name = "GroupView" Then Pivots_TextInValuesArea Target, [tbl_PivotValues.NumericValue], [tbl_PivotValues.TextValue] 

End Sub 

Questo codice va nel modulo del codice del foglio di lavoro che corrisponde al foglio di lavoro in cui si trova la tabella pivot:

Answer 4

Per i lettori futuri - utilizzare due funzioni insieme:

Nastro> Strumenti tabella pivot> Rapporto Layout> Visualizza in forma tabellare

e

Nastro> Strumenti tabella pivot> Report Layout> Ripeti tutte le etichette elementi

I campi di riga verranno presentati da sinistra a destra come testo ripetuto verticalmente.