jsc0518

回復 19# GBKEE
Dear 版主,
我運用了您所教導的語法，有發生下圖，請問要更改哪一語法呢？
謝謝您!

下載 (6.28 KB)

2018-2-12 09:59

Option Explicit
Sub Step1()
    Dim E As Range, Rng As Range
    With Sheets("vba")  'With 陳述式 在一個單一物件或一個使用者自訂型態上執行一系列的陳述式。
        '3********指定要複製的範圍*********************************
       Set Rng = .UsedRange   'Sheets("vba")上已使用的範圍為 "A:H"
    End With
    '4**************指定的範圍複製到指定位置 **********************
    With Sheets("資料庫").Range("b" & Rows.Count).End(xlUp)
        If .Cells = "" Then    '第一列
            Rng.Copy .Cells
        Else
            Rng.Copy .Offset(1)
        End If
    End With
End Sub

GBKEE

回復 21# jsc0518
Sub Step1() , Sheets("vba") ,  Sheets("資料庫")
是在同一個 xlsm  嗎?
不是 須指名 Workbooks("xxx").( Sheets("vba") ,  Workbooks("xxx"). Sheets("資料庫")

jsc0518

回復 22# GBKEE
Dear 版主,
我再試試看您所提供的方法
感恩！

jsc0518

回復 22# GBKEE
Dear 版主,
我使用您的VBA做修改"空白欄位可以自動複製與上一筆資料相同"
我把VBA改成B欄時，卻無動作(空白欄位無法自動複製與上一筆資料相同)，是否哪一段語法未修訂？
Thanks!

Sub Step6()
'空白欄位可以自動複製與上一筆資料相同-B
With ActiveSheet.UsedRange.Columns("B")
        If .Cells(1).End(xlDown).End(xlDown).Row <> Rows.Count Then  '判斷有空白的儲存格  !!!!
            .SpecialCells(xlCellTypeBlanks).Cells = "=R[-1]C"                        '沒有空白的儲存格 .SpecialCells(xlCellTypeBlanks) 程式會錯誤
            .Value = .Value
        End If
   End With
End Sub

jsc0518

回復 22# GBKEE
檔案如下
Book1.rar (11.12 KB)

下載次數: 4

2018-2-12 16:39

GBKEE

回復 25# jsc0518
一個程式碼並不能通用於所有類似的狀況
附檔中因A欄沒有使用到 ,不適用 ActiveSheet.UsedRange.Columns("B") 為 ActiveSheet的 C 欄
要看你實際上檔案需有所修改,請再附檔看看