入黎免費幫你砌excel表 / 教你formula (6)

PeterStrange 2021-3-28 15:53:51

:^(

扮工作者 2021-3-29 01:46:25 巴打 VBA可唔可以搵outlook嘅file嘅excel data？

PeterStrange 2021-3-29 14:10:31

:^(

CMOSsensor 2021-3-29 14:12:51 你想做乜？
可以save 返d attachment

心水師兄 2021-3-29 14:47:21 Pivot table 一問

假設我想知2021 同2020年
Income range 分別既數量應該點拉？

如果Row 揀income range 2021
Values 揀 count 2021&2020
兩行Values 都係會出 count 2021

如果Row 揀2020
就兩個都係出count 2020

:^(

扮工作者 2021-3-29 16:32:27 我想拎outlook sharepoint入面嘅excel黎做vlookup data 但係用vba automate 左成件事

CMOSsensor 2021-3-29 17:19:50 本身office支持別個功能
[url]
https://answers.microsoft.com/en-us/msoffice/forum/msoffice_sharepoint-mso_winother-mso_o365b/linking-two-excel-worksheets-in-sharepoint-online/cfe2741b-f09b-4d22-93ee-37218261a4d4
[/url]

你按一下refresh all 就得。

扮工作者 2021-3-29 18:34:43 唔係啊我想係VBA打曬呢堆嘢

:^(

扮工作者 2021-3-29 18:35:58 知唔知點解咁樣會無出嘢？
Range("A1", Range("A1").End(xlUp)).Copy Destination:= Worksheets("ABC").Range("A1").End(xlUp)

CMOSsensor 2021-3-29 18:40:00 我無sharepoint 用幫你唔到

:^(

扮工作者 2021-3-29 18:46:10 唔緊要我自己唸下

PeterStrange 2021-3-29 20:32:24 apply份excel help desk俾人reject左

:^(

扮工作者 2021-3-29 22:25:10

:^(

傅家俊 2021-3-30 00:00:05 你想做D咩先?
你應該係想將最後一格copy去ABC果版?
A1已經係最頂果格, End(xlUp)無得再上
你想搵最尾果格應該用xldown
同埋你疊左兩層Range, 唔知有咩含意
我幫你改一改, 睇下係咪你想要既野

Range("A1").End(xlDown).Copy Worksheets("ABC").Range("A1").End(xlDown).Offset(1, 0)

傅家俊 2021-3-30 00:00:57 有D咁既工?

:^(

PeterStrange 2021-3-30 00:03:15 係呀,不過應該一見到我都唔係讀IT就Not Suitable左

:^(

https://hk.jobsdb.com/hk/en/job/job-100003008302400

傅家俊 2021-3-30 00:05:22 BTW, 其實搵最尾果格我prefer由最底數上去, 即係咁:

Range("A1048576").End(xlUp).Copy Worksheets("ABC").Range("A1048576").End(xlUp).Offset(1, 0)

不過段code唔完整, 如果你run兩次會重複copy
最好加If之類check下condition

傅家俊 2021-3-30 00:08:11 好多公司唔識揀人
淨係識睇有無相關degree

:^(

癸 2021-3-30 00:09:41 我估佢想a1至最底嗰格所以2層range?

扮工作者 2021-3-30 00:14:50 唔係啊我想將個Range Copy過去下一個worksheet嘅最後一格 e.g. Range（"A1:A30")
但唔係次次都A30咖嘛咁咪想搵end(xlup)
然後後面offset你果個應該啱
唔該曬大佬

:^(

扮工作者 2021-3-30 00:15:41 試下send email 講下你幫人整vba 應該得

扮工作者 2021-3-30 00:16:14 yes!

傅家俊 2021-3-30 00:19:12 咁樣？

Range(Range("A1"), Range("A1048576").End(xlUp)).Copy _
Worksheets("ABC").Range("A1048576").End(xlUp).Offset(1, 0)

扮工作者 2021-3-30 00:19:19 但係唔係A1.End(xlUp) 都得
我見好似個row無分別姐係Ax 都得因為係A果個Column底上黎

扮工作者 2021-3-30 00:19:50 聽日試下唔該巴打們

:^(