Board logo

標題: 請教 EXCELL VBA 複製特定多列 問題 [打印本頁]
作者: twlee    時間: 2015-5-11 19:37     標題: 請教 EXCELL VBA 複製特定多列 問題

在sheet1中 每6列為一單位 依序在每單位中複製第四及第六列
將所有第四列複製到sheet2
將所有第六列複製到sheet3

一直搞不定
不好意思 麻煩大家 謝謝
作者: GBKEE    時間: 2015-5-12 07:12

本帖最後由 GBKEE 於 2015-5-13 14:28 編輯

回復 1# twlee
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Single, Rng(1 To 2) As Range
  4.     With Sheets(1).UsedRange   '給的範圍        
  5.         For i = 1 To .Rows.Count Step 6  '間隔 6
  6.             If Rng(1) Is Nothing Then
  7.                 Set Rng(1) = .Rows(i + 3)   '第四列
  8.             Else
  9.                 Set Rng(1) = Union(Rng(1), .Rows(i + 3))  '加入下一個第四列
  10.             End If
  11.         Next
  12.         
  13.     End With
  14.     If Not Rng(1) Is Nothing Then Rng(1).Copy  Sheets(2).[a1]
  15.     '**看看 列的選擇是否正確**
  16.     'If Not Rng(1) Is Nothing Then
  17.     '    With Rng(1)
  18.     '        .Parent.Activate
  19.     '        .Select
  20.     '    End With
  21.     '    Rng(1).Copy Sheets(2).[a1]
  22.     'End If
  23.     '**********************
  24. End Sub
複製代碼
作者: twlee    時間: 2015-5-12 20:52

GBKEE大哥
謝謝您幫忙 提供給小弟参考
試作後完全沒問題
只是我自己要再花時間了解每一段程式的功能及用法
才不會辜負您的一番好意 ~自勉之
謝謝您



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)