你也沒講是用甚麼軟體 ，EXCEL 2003?? EXCEL 2007??? Origin???

我是想編輯日文發音人體工學研究片的預覽圖
圖片解析度, 有時是512x30000...
要剪下貼上剪下貼上好幾十次...

自己弄，比較快...

在裡面設定一下就可以了。


不要再沉迷A片了!!!!!!

知道那個怎麼設定, 都設定成8x8塊, 解析度1920x1080的...
想問的是, 別人已經擷取好的圖片, 怎麼裁切...
沉迷...我......那是我生命的一部份...沒辦法割捨...

　　已經擷取好的單張圖片，就只能像你本來那樣手工慢慢切。

　　如果A片是你的生命，那真的只能重新投胎了，叫你去跑步有沒有聽，
不是在健身房裡吹著冷氣像個娘炮一樣用跑步機跑，是像個男人一樣，
到真正的陸地上紮紮實實的跑。

我應該看完全文的...
我還以為真的要問excel...
結果真的在寫vba

Sub PCDVD()
r = [a65536].End(xlUp).Row
Db = Range(Cells(1, 1), Cells(r, 1))
a = 0
b = 0
For i = 1 To UBound(Db)
For j = 1 To 4
If j + b <= UBound(Db) Then
a = Db(j + b, 1)
Cells(j, i + 2) = Db(j + b, 1)
Select Case a
Case 1 To 4
Cells(j, i + 2).Interior.ColorIndex = 3
Cells(a, 1).Interior.ColorIndex = 3
Case 5 To 8
Cells(j, i + 2).Interior.ColorIndex = 4
Cells(a, 1).Interior.ColorIndex = 4
Case 9 To 12
Cells(j, i + 2).Interior.ColorIndex = 5
Cells(a, 1).Interior.ColorIndex = 5
Case 13 To 16
Cells(j, i + 2).Interior.ColorIndex = 6
Cells(a, 1).Interior.ColorIndex = 6
Case Else
Cells(j, i + 2).Interior.ColorIndex = 6 + i
Cells(a, 1).Interior.ColorIndex = 6 + i
End Select
End If
Next j
a = a + i
b = b + 4
Next i
End Sub

真的是認真就輸了...
我真的很傻...

是像個男人一樣，
到真正的陸地上紮紮實實的跑

沒惡意不過這句話看起來好有趣,很有畫面

例如:老爸跟兒子的對話

老爸:兒子阿你要像個男人一樣，到真正的陸地上紮紮實實的跑

　　 真是服了你了，你發現他是要排列A片的預覽圖時，
應該相當錯愕吧 !!!