借問這該怎做到自動分割!?

raymond0322

raymond0322
個人積分：1350分
文章編號：82718780

1350分

樓主

2021-08-16 0:08

最近有個再做網路爬蟲, 大約每天會產生300筆資料

大約像這樣子
借問這該怎做到自動分割!?

可我需要把這資料表改改格式,
1.一開始我需要把偶數列選出來, 然後貼到上一格的B欄去, 這可以用巨集做到, 這一個個貼有點不現實
有沒有更好的方式!?
借問這該怎做到自動分割!?

2.之後我需要做分割, 把時間貼到C欄去, 這大概貌似只能用VBA去判斷了!?
不過之前都在用GAS 沒學過VBA, 如果要用VBA借問有沒有範例可參考!
借問這該怎做到自動分割!?

3.最後一步要刪除空白列,這個我知道用巨集可以弄
借問這該怎做到自動分割!?

2021-08-16 0:08 發佈

Ghostwriter

Ghostwriter
個人積分：2041分
文章編號：82718872

2041分

2樓

2021-08-16 0:26

raymond0322 wrote:
可我需要把這資料表改改格式,

我應該沒誤會意思吧

幹嘛不用python抓出來格式排好再放進去

Mystique Hsiao

Mystique Hsiao
個人積分：7750分
文章編號：82719090

7750分

3樓

2021-08-16 1:24

C~D 欄可另開工作表！

My Interior Knowledge is Extraordinaire

simonni

simonni
個人積分：2047分
文章編號：82719430

2047分

4樓

2021-08-16 5:26

很多文字編輯器有個功能叫規則運算式一般在搜尋內，可以解決你的問題
在要分割的文字插入 TAB，完成後全部複製貼回 Excel 即可

規則運算式=正規運算式=正則表達式名詞不同但都是在講同一個功能

VBA 有規則運算式物件可使用
範例：
加入參考：Microsoft VBScript Regular Expressions 5.5
Function TestRegExp(myPattern As String, myString As String)
'Create objects.
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As MatchCollection
Dim RetStr As String

' Create a regular expression object.
Set objRegExp = New RegExp
'Set the pattern by using the Pattern property.
objRegExp.Pattern = myPattern
' Set Case Insensitivity.
objRegExp.IgnoreCase = True
'Set global applicability.
objRegExp.Global = True
'Test whether the String can be compared.
If (objRegExp.Test(myString) = True) Then
'Get the matches.
Set colMatches = objRegExp.Execute(myString) ' Execute search.
For Each objMatch In colMatches ' Iterate Matches collection.
RetStr = RetStr & "Match found at position "
RetStr = RetStr & objMatch.FirstIndex & ". Match Value is '"
RetStr = RetStr & objMatch.Value & "'." & vbCrLf
Next
Else
RetStr = "String Matching Failed"
End If
TestRegExp = RetStr
End Function

jjx874

jjx874
個人積分：6915分
文章編號：82721030

6915分

5樓

2021-08-16 10:26

TW、US、JP这些都是两个字符，用公式取出第三个字符开始的文字即可

B3是“TW16小时前”
C3输入“=MID(B3,3,LEN(B3)-2)”，就会得到”16小时前“

ren1244

ren1244
個人積分：594分
文章編號：82722265

594分

6樓

2021-08-16 12:02

網路爬蟲是哪個語言？

我覺得可以直接從爬蟲的程式碼來改
讓爬蟲直接匯出排好的格式

是否有原本爬蟲的程式碼？

raymond0322

raymond0322
個人積分：1350分
文章編號：82726664

1350分

樓主

2021-08-16 18:41

Ghostwriter wrote:
我應該沒誤會意思吧幹(恕刪)

因為沒學過 = .. =

raymond0322

raymond0322
個人積分：1350分
文章編號：82726683

1350分

樓主

2021-08-16 18:44

jjx874 wrote:
TW、US、JP这些(恕刪)

感謝大大

不過那不是固定的，所以其實他是

聯合新聞
自由
壹電視

這需要判斷式…

raymond0322 樓主

就excel 本身的功能。

2021-08-16 18:49

raymond0322

raymond0322
個人積分：1350分
文章編號：82726707

1350分

樓主

2021-08-16 18:48

Mystique Hsiao wrote:
C~D 欄可另開工作(恕刪)

感謝大大

不過前面那兩個字不是固定長度的

有三個字四個字的

這還有辦法?

chuway

chuway
個人積分：3154分
文章編號：82727235

3154分

10樓

2021-08-16 19:51

raymond0322 wrote:
不過前面那兩個字不是固定長度的
有三個字四個字的
這還有辦法?

樓主如果會寫程式或正規表示法(regex)的話，找出邏輯就可以寫出來
樓主如果不會寫程式，先找出關聯再來規格化

已知字串:聯合新聞、自由、壹電視
可以先用收尋取代: 聯合新聞=聯合新聞#，壹電視=壹電視# (#可以改用他不相干符號)
再用search,mid函數整理