ç¨ä»¥ä¸ä»£ç å¯å®ç°ï¼
Sub main()
Sheets("782 Forward Report").Activate
For i = 1 To Range("C65536").End(3).Row
If Cells(i, 3) = "Deutsche Bank" Then
For j = 1 To 256
Sheets("testing").Cells(i, j) = Cells(i, j)
Next
End If
Next
Sheets("testing").Columns("A:B").Delete
Sheets("testing").Columns("I:XX").Delete
End Sub
å
³äºé¢ç®ä¸åºç°çä¸è½è·åæ大è¡çé®é¢ï¼æ¯ç¨Range("C65536").End(3).Rowæ¥è§£å³ç
å
³äºEndçç¸å
³ç¥è¯å¦ä¸ï¼
For irow = 1 To [A65536].End(3).Row
If Abs(Cells(irow, 1).End(2) - Cells(irow, 256).End(1)) / Cells(irow, 1).End(2) > 0.1 Then Cells(irow, 1).End(2)(1, 2) = Cells(irow, 256).End(1)
Next
æ¬å·ä¸ç1ã2ã3ã4åå«ä»£è¡¨åå·¦ãåå³ãåä¸ãåä¸ãEND(x)表示ä»æå®çåå
æ ¼åå·¦ãåå³ãåä¸ãåä¸æåä¸ä¸ªææRANGE
以Cells(irow, 1).End(2)为å½ååå
æ ¼ï¼åå³ç§»ä¸ä½ã
åå¦Cells(irow, 1).End(2)为B2ï¼Cells(irow, 1).End(2)(1, 2) 为C2
end(xlup)æ¯åä¸ï¼end(xldown)æ¯åä¸ï¼end(xltoleft)æ¯åå·¦ï¼end(xltoright)æ¯åå³
å
³äº[A65536].End(xlUp).row ä¸ç[A65536]
å¨1995-2006å¹´ï¼excelå·¥ä½ç°¿å
å«65536è¡ï¼ä½ç°å¨çoffice 2007ä¸å·¥ä½ç°¿å
å«1048576è¡ã[A65536]å°±æ¯Aåçæåä¸è¡çææï¼è¿æ®µè¯çææå°±æ¯ï¼ä»Aåæåä¸è¡åä¸æ¾ï¼æ¾å°ææ°æ®çè¡ä¸ºæ¢ã
æ¯ä»Aåæä¸é¢å¾ä¸éå°çææ°æ®çåå·
å¦æ{A27}æ¯ä½ æ°æ®çæåå
I=[A65536].End(xlUp).row
åIå°±æ¯27
[a65536].End(3)çæææ¯æ¥æ¾Aåæåä¸ä¸ªé空åå
æ ¼ï¼æ¯å¦æ¾å°é空åå
æ ¼ä¸ºA2
[a65536].End(3)(2, 1)
ï¼2ï¼1ï¼æ¯æ°æ®è¡ææ«è¡çä¸ä¸ç©ºåå
æ ¼ï¼ï¼1ï¼2ï¼æ¯æ°æ®è¡ææ«ä¸ä¸ªåå
æ ¼çå³ä¾§åå
æ ¼
温馨提示:答案为网友推荐,仅供参考