autotest
#include <Excel.au3>
$excel = _ExcelBookAttach("Book1.xlsx" ,"FileName")
Dim $i = 1

;_ExcelReadCell($excel,"b"&$i) <>"" 并不等于 not(_ExcelReadCell($excel,"b"&$i) ==""),使用的时候尽量使用后者
While IsInt(_ExcelReadCell($excel,"b"&$i))
 $ten = _ExcelReadCell($excel,"b"&$i)
 if $ten == 0 Then
 _ExcelWriteCell($excel, $ten, "d"&$i)
 ElseIf $ten == 1 Then
 _ExcelWriteCell($excel, $ten, "e"&$i)
 Else
 _ExcelWriteCell($excel, $ten, "f"&$i)
 EndIf
 $i += 1
WEnd

 

分类:

技术点:

相关文章:

  • 2022-12-23
  • 2022-12-23
  • 2021-11-01
  • 2022-12-23
  • 2022-12-23
  • 2021-11-05
  • 2021-11-12
  • 2022-12-23
猜你喜欢
  • 2022-12-23
  • 2021-09-25
  • 2021-09-25
  • 2021-12-20
  • 2021-07-17
  • 2021-12-29
  • 2022-12-23
相关资源
相似解决方案