使用这段代码操控EXCEL很慢 Post By:2019/11/11 15:18:00 [只看该作者]
Dim k As Integer = 9 For i As Integer = 1 To b If WT.cells(i,1).value = e.Form.controls("Combobox1").value Then For j As Integer = 1 To 9 Ws.Cells(k,j).value = WT.Cells(i,j + 2).value Ws.Cells(k,10).value = WT.Cells(i,2).value Ws.Cells(k,11).value = WT.Cells(i,13).value Next k = k+1 Else End If