/ /日付基準に基づく集計時間 - Excel、Excel式

日付基準に基づく集計時間 - Excel、Excel式

  Col A       Col J   Col K   Col L
8/1/2015       0:58     10     4:31
8/1/2015       0:19      1     3:56

A列の日付に基づいて、このデータセットから情報を検索する関数または関数セットを自動化できますか?私は現在、これを手で行っています:

=((L24+L25)-(J24+J25))/(K24+K25)

私は何かがあるかどうか疑問に思っていますこれをより簡単にすることができます。私はsumifの、sumproducts、入れ子のif / index-matchステートメントを試しましたが、アイデアがなくなったり、関数を正しく書いていないだけです。

回答:

回答№1は0

この数式はあなたが探している結果を拾うはずです。

=(SUMIF($A$24:$A$100,G16, $L$24:$L$100)-SUMIF($A$24:$A$100,G16, $J$24:$J$100))/SUMIF($A$24:$A$100, G16, $K$24:$K$100)

時間が実際にはテキストのように見える時間です。これの最初の兆候は細胞内の左揃えです。 Text-to-Columns、Fixed Width、Finishのクイック実行は、各列を実際の時間に戻しますが、各列は個別にその列を実行する必要があります。

以下は、各ワークシートをすばやく実行し、各列でアクションを実行するルーチンです。

Sub fix_text_times()
Dim w As Long, c As Long, fndMrg As Range

On Error Resume Next
Application.FindFormat.MergeCells = True

For w = 1 To Worksheets.Count
With Worksheets(w)
With .UsedRange.Cells
Set fndMrg = .Cells.Find(What:=vbNullString, SearchFormat:=True)
Do While Not fndMrg Is Nothing
fndMrg.MergeCells = False
Set fndMrg = .Cells.Find(What:=vbNullString, SearchFormat:=True)
Loop

For c = 1 To .Columns.Count
.Columns(c).TextToColumns Destination:=.Cells(1, c), _
DataType:=xlFixedWidth, FieldInfo:=Array(0, 1)
Next c
End With

End With
Next w

Application.FindFormat.MergeCells = False

End Sub

Range.TextToColumnsメソッド マージされたセルではうまく動かないので、私は見つけられたものをアンマウントしました。私は、この行動を複数のすべての エリアのプロパティ マスター入力1にあり、あなたが絶対にそれらを望んでいれば、それらを戻すことができると考えました。