vb 如何操作excel，判定表1中F列,是否為"下班"，
如果是"下班"，
則依次把整行剪切至表2中 求代碼！謝謝！
uj5u.com熱心網友回復：
VBA
Sub veimi()
Dim p As Integer
p = 1
For i = 1 To 20
If Cells(i, 6) = "下班" Then
Sheet1.Rows(i).Copy Destination:=Sheet2.Rows(p)
p = p + 1
End If
Next i
End Sub
uj5u.com熱心網友回復：
+1
uj5u.com熱心網友回復：
請問在VB里面怎么寫呢？不是VBA，謝謝！uj5u.com熱心網友回復：
http://wenku.baidu.com/link?url=X7G6PnULi86-2lZ1RF3Ly8ojbsZHwEfAKDI56Z-58scpWdCUGwNhWpONKITwclWscxq6b3i1aFYTDcXhWzJ_qvEz9sq7tcqiOJ4CcaPZfB_uj5u.com熱心網友回復：
需要參考officeuj5u.com熱心網友回復：
Dim xlsheet As excel.Worksheet '定義excel物件Dim Exl As excel.Application '定義excel物件
Dim myworkbook As excel.Workbook
Set Exl = CreateObject("Excel.Application")
Set myworkbook = Exl.Workbooks.Open("d:\a.xls")
Exl.Visible = False
Set xlsheet = myworkbook.Worksheets(1)
“此處添加xlsheet.Cells(？, 6) 的判斷陳述句”
myworkbook.Close (True) '關閉作業簿
Exl.Quit '結束EXCEL物件
Set Exl = Nothing
uj5u.com熱心網友回復：
1樓不錯。
uj5u.com熱心網友回復：
6樓是正解,再在參考加載一個東東就完善了轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/113885.html
標籤：VB基礎類
下一篇：新手求助VBA代碼