1樓：匿名使用者
sub macro1()
dim rng as range
x = range("b65536").end(xlup).row '取最後一行
set rng = range("d3:m" & x - 1)'設定d3:最後一行減1
for each cel in rng'迴圈該區域的每一個單元格
if cel <> "" then如果該單元格不為空
y1 = cel.top + cel.height / 2: x1 = cel.left + cel.width / 2取這個單元格的中心座標
for each cel2 in range(cells(cel.row + 1, 4), cells(x, "m"))
if cel2 <> "" then y2 = cel2.top + cel2.height / 2:
x2 = cel2.left + cel2.width / 2:
activesheet.shapes.addline(x1, y1, x2, y2).
select: exit for
next
end if
next
end sub
2樓：tat蘿蔔
連線。結合程式執行結果，去理解**應該更方便
我想學程式設計，不知道從哪入手，我想學程式設計 不知道從哪入手，程式設計學會後 可以用來幹什麼
其實聽你說的，我真的蠻慚愧的，我是一個大學生，本科，我有很多同學到現在都還沒拿到計算機c語言等級考試證書，都說難考 我是學金融的，計算機也是必修課，如果你想學並且有充足的時間，那麼買兩本書 visual basic上機實踐指導 visual basic程式設計 一本是書，一本是練習。這個簡稱vb，是...
求翻譯 現在不知道不代表以後不知道
not knowing at present doesn t mean not to know in the future.最簡潔的翻譯是 don t know presently is not forever i don t know the answer now doesn t mean i w...
撿到一隻鳥不知道是什麼求大神幫忙
文以立仁 這是一隻鵪鶉。可以殺來吃掉。鵪鶉是現代人飼養的一種家禽，供人食肉 蛋。分辨所謂 鳥 只需要看腿腳 腿長的，大多為涉禽，在淺水灘生活，吃小蝦小魚和其它水生小動物 腳趾中間有蹼 像鴨子 的，是水禽，生活在水域 腳上的後趾比較長的，屬於生活在樹上的鳥類，靠後趾抓住樹枝 後趾短 腿不很長 沒有蹼的...