Предположим, у меня есть таблица Excel ниже, и мне нужно найти разницу между ними, а результат нужно вернуть в другой столбец:

      ColA                      ColB                    ColC

9/3/2012  8:31:59 AM      09/17/2012  6:45:56 PM        Result
9/4/2012  8:31:59 AM      10/17/2012  6:45:56 PM        Result

Я сделал это, используя метод Loop и Row-By-Row. Ищите способ, если это можно сделать напрямую путем вычитания на уровне столбца. Скажи ColB-ColA -> ColC. Вся операция должна быть выполнена за один раз. Результат должен прийти "чч: мм: сс».

КОД

  IntRow4=2
  Do While objSheet4.Cells(IntRow4,1).Value  ""

    If objSheet4.Cells(IntRow4,9).Value  "Open" Then

       Date1=objSheet4.Cells(IntRow4,7).Value
       Date2=objSheet4.Cells(IntRow4,8).Value
       objSheet4.Cells(IntRow4,11)=TimeSpan(Date1,Date2)

   End If

  IntRow4=IntRow4+1
  Loop

Обновить

      ColA1    ColB1      ColC1       ColA2    ColB2     ColC2   .....   ColAN    ColBN    ColCN    TotaltimeDurtion
      Date     Date     11:25:20      Date     Date     10:25:00          Date    Date     11:25:20      ?

здесь я показал только одну строку, но может быть несколько или N рядов. Что мне нужно сделать, я хочу добавить продолжительность времени и поместить их в последний столбец "TotaltimeDurtion».Но последний столбец нельзя исправить. И все столбцы для каждой строки не должныt обязательные значения, но все они никогда не будут пустыми. Мы можем сделать это также на уровне столбца. Здесь продолжительность - в формате чч: мм: сс или согласно вашей инструкции [ч]: мм: сс. TotaltimeDurtion <- ColC1 + ColC2 + ... + ColCN.