Creazione di un singolo dato di esportzione VBA Macro Function in Excel

nuovo in questo sito così come nuovo in Excel VBA in generale. Mi è stato dato un foglio di calcolo esistente con un bel po 'di informazioni da elaborare e mi chiedevo che qualcuno qui potrebbe essere in grado di fornire una visione nella creazione di una function VBA per eseguire il sollevamento pesante.

La mia sfida è che ci sono molti dati che devono rimanere nel formato originale ma per le nostre analitiche è funzionale avere i dati esportti in un formato mostrato nella seconda image qui sotto.

  • Ottenere i grafici incorporati nel foglio di lavoro di Excel
  • Copia in un'altra colonna in base alla parola chiave in excel
  • Runtime Error 49, convenzione di chiamata difettosa DLL
  • Fogli di documenti di Google - Strip dal risultato
  • Come si determina il tempo di ora legale in VBA?
  • Apache poi 3.10 non riesce a leggere i file .xlsx, può leggere i file xls. perché?
  • C'è una function che passerà attraverso le intestazioni X e quindi restituisce il valore associato all'intestazione Y corrispondente e funziona attraverso le diverse combinazioni?

    Formato originale dei dati:

    immettere qui la descrizione dell'immagine

    Formato dei dati di esportzione desiderati:

    http://i.imgur.com/Slf7SI7.jpg

    Qualsiasi aiuto su questo sarebbe molto apprezzato! I dati di origine sono in continua evoluzione in modo che si trasformi in un'esercitazione di pasta copia che non finisce per me se non riesco a trovare una soluzione.

    Grazie,

    Jason

    Aggiornamento: grazie per i ragazzi consigli. Ho esaminato un codice di sopravvivenza ed è stato in grado di trovare questo come una risorsa e funziona !:

    Sub NormalizeData() Dim Rng As Range Dim WS As Worksheet On Error Resume Next Set Rng = Application.InputBox(Prompt:="Select a range to normalize data" _ , Title:="Select a range", Default:=ActiveCell.Address, Type:=8) On Error GoTo 0 If Rng Is Nothing Then Else Application.ScreenUpdating = False Set WS = Sheet1 i = 0 For c = 1 To Rng.Columns.Count - 1 For r = 1 To Rng.Rows.Count - 1 WS.Range("A2").Offset(i, 0) = Rng.Offset(0, c).Value WS.Range("A2").Offset(i, 1) = Rng.Offset(r, 0).Value WS.Range("A2").Offset(i, 2) = Rng.Offset(r, c).Value i = i + 1 Next r Next c WS.Range("A:C").EntireColumn.AutoFit Application.ScreenUpdating = True End If End Sub 

    L'image dei risultati è la seguente:

    http://imgur.com/3KRikBK

    Sto ancora tweaking per renderlo user friendly. Qualsiasi ulteriore suggerimento sarebbe molto apprezzato!

  • Perché l'aggiunta di AutoFilter corrompe il mio file excel in questo esempio?
  • Trova voci duplicate
  • I prezzi basati sul trimestre sono tornati
  • TimeValue ( “23:50”)
  • Automatizza la modifica delle intestazioni di colonna
  • Se c'è un valore nella colonna specificata, evidenzia la row
  • Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.