Блог

У меня есть электронная таблица с 2 столбцами дат, в каждом из которых только одно значение даты в каждой строке. Наличие двух столбцов для этого является избыточным для моих целей, поэтому я хотел бы запустить сценарий powershell, чтобы проверить каждую ячейку в столбце Date2 и, если она пуста, скопировать значение Date1 из той же строки в столбец Date2. Это та часть, с которой я не могу разобраться; Чтобы проверить все ячейки в столбце Date2 и, если они пусты, скопируйте соседнее значение Date1. Как только это будет сделано, я удалю столбец Date1. ПРИМЕЧАНИЕ: Столбец Date2 содержит больше дат, поэтому используйте его в качестве основного столбца для сохранения (меньше копирования / вставки). ТИА

 Example Test.xlsx:
         A            B
1 |    Date1   |    Date2   |
2 | 01/01/1900 |            |
3 | 01/01/1900 |            |
4 |            | 01/01/1900 |
5 |            | 01/01/1900 |
6 | 01/01/1900 |            |
7 |            | 01/01/1900 |
 

 $Excel = New-Object -Com Excel.Application -Property @{Visible = $false} # Start Excel and hide the window
$Excel.DisplayAlerts = $False # Disable comfirmation prompts
$Workbook = $Excel.Workbooks.Open(C:TempTest.xlsx) # Open spreadsheet file

#This is the part I'm stuck on:
#If cell in column Date2 is empty, then copy the adjacent Date1 value to the Date2 cell - This is done until at the end of the columns

[void]$Workbook.Sheets.Item("Test").Cells.Item(1, 1).EntireColumn.Delete() # Deleting "Date1" column
$Workbook.Save() # Save changes
$Workbook.Close($true) # Close workbook
$Excel.Quit() # Quit Excel
[Runtime.Interopservices.Marshal]::ReleaseComObject($Excel) # Release COM
 

Все, что вам нужно в вашем коде, это перебирать строки и обновлять ячейку в столбце 2 (B), если она пуста, значением столбца 1 (A).

Попробуйте

 $Excel = New-Object -Com Excel.Application -Property @{Visible = $false} # Start Excel and hide the window
$Excel.DisplayAlerts = $False # Disable comfirmation prompts
$Workbook = $Excel.Workbooks.Open("D:TestTest.xlsx") # Open spreadsheet file
$Sheet    = $Workbook.Worksheets.Item("Test")

# get the total number of rows in the sheet
$rowCount = ($Sheet.UsedRange.Rows).Count
# update cell values in a loop
for ($row = 1; $row -le $rowCount; $row  ) {
    $value = $Sheet.Cells.Item($row, 2).Text
    if ([string]::IsNullOrWhiteSpace($value)) {
        # copy the cell format first; then the value
        $Sheet.Cells.Item($row, 2).NumberFormat = $Sheet.Cells.Item($row, 1).NumberFormat
        $Sheet.Cells.Item($row, 2) = $Sheet.Cells.Item($row, 1)
    }
}

[void]$Sheet.Cells.Item(1, 1).EntireColumn.Delete() # Deleting "Date1" column
$Workbook.Save() # Save changes
$Workbook.Close($true) # Close workbook
$Excel.Quit() # Quit Excel

# clean up COM objects
$null = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Sheet)
$null = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook)
$null = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()
 

Это повторяющаяся задача? В противном случае использование функций Excel может быть более быстрым.

В любом случае, для обработки данных Excel я настоятельно рекомендую использовать модуль ImportExcel

Чтобы вы могли прочитать лист с обоими столбцами в качестве свойств, создайте третье свойство на основе троичной операции с первыми двумя.