[REQ] Excel Macro
eitschpi 23.04.2015 - 08:27 1755 1
eitschpi
epidämlichologe
|
Habe eine Menge Excelsheets/kommaseparierte CSVs, die wie im Anhang aussehen. Eine variable Anzahl von Zeilen ist das Problem
Es ist in der letzten Zeile der Mittelwert der Spalte angegeben, danach kommt noch eine Leerzeile und das Sheet ist aus.
Jetzt bräuchte ich ein Macro, mit dem ich die Summe pro Spalte ausrechnen kann. Die Sheets sind aus einer Software exportiert, die das Berechnen kann aber nicht exportieren.
Kann man das mit einem Macro lösen, dass ich z.B. "SUMME(B:B)-B#letzterWert", weil das ja der Mittelwert ist und ich den nicht in der Summe brauche?
tia
stb_203076.csv (downloaded 82x)
Bearbeitet von eitschpi am 23.04.2015, 08:41
|
wergor
connoisseur de mimi
|
Sub test1()
last_row = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
last_col = ActiveSheet.Cells(1, 16384).End(xlToLeft).Column
For i = 0 To last_col - 1
Dim formula As String
'OFFSET(reference cell,
'row offset from ref cell to start the range,
'col offset to start the range, height of range you want,
'width of range you want)
formula = "=SUM(OFFSET(A1," & 1 & "," & i & "," & last_row - 2 & "," & 1 & "))"
Cells(last_row + 2, i + 1).Value = formula
Next
End Sub
hf
Bearbeitet von wergor am 24.04.2015, 09:44
|