Excel VBA行复制和粘贴错误开发者社区

link管理

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

神勇威武的消炎药 · excellvba引用计算机用户名,EXCE ...· 2 月前 ·

知识渊博的紫菜 · Excel 效能 - 優化效能阻礙的秘訣 ...· 2 月前 ·

迷茫的马克杯 · 从VBA中的范围中删除特殊字符开发者社区· 2 周前 ·

知识渊博的热带鱼 · 在 Power BI Desktop ...· 2 周前 ·

体贴的麻辣香锅 · 英文文學與文化教學資料庫· 5 月前 ·

酷酷的水煮鱼 · 【開箱】可自改觸發行程的磁力軸鍵盤｜CORS ...· 9 月前 ·

健身的雪糕 · 《網路社會學通訊》第71期，2008年5月15日· 9 月前 ·

帅气的山羊 · With statement (VBA) ...· 1 年前 ·

俊逸的牛腩 · 无数个骂娘的故事告诉你，千万别做技术合伙人！ ...· 1 年前 ·

Sub mileStoneDateChanger()
    Dim r As Long, pasteRowIndex As Long, v() As Long, i As Long
    Dim lastRow As Long
    Dim lCol As Long
    Sheets("Sheet1").Select
    Rows("10:10").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    Selection.Paste
    lastRow = Cells.Find(What:="*",
                    After:=Range("A1"),
                    LookAt:=xlPart,
                    LookIn:=xlFormulas,
                    SearchOrder:=xlByRows,
                    SearchDirection:=xlPrevious,
                    MatchCase:=False).Row
    MsgBox "Last Row: " & lastRow
    pasteRowIndex = 1
    With Sheets("Sheet1")
        For r = 1 To lastRow
            If .Cells(r, "E").Value Like "Milestone*" Then
                If UBound(Split(.Cells(r, "E"), ",")) > 0 Then
                    i = i + 1
                    ReDim v(1 To i)
                    v(i) = pasteRowIndex
                End If
                Sheets("Sheet1").Rows(r).Copy Sheets("Sheet2").Rows(pasteRowIndex)
            pasteRowIndex = pasteRowIndex + 1
            End If
        Next r
    End With
    With Sheets("Sheet2")
        newLastRow = pasteRowIndex
        If IsArray(v) Then
            .Columns(6).Insert shift:=xlToRight
         For i = 1 To newLastRow
                If InStr(1, .Cells(i, "E"), ",") Then
                    .Cells(i, "F").Value = Split(.Cells(i, "E"), ",")(1)
                End If
            Next i
        End If
    End With
End Sub

Sheets("Sheet1").Rows("10").Copy Sheets("Sheet2").Range("A1")

Sub TestME()
    Sheets(1).Select
    Rows("10:10").Select
    Selection.Copy
    Sheets(2).Select
    Range("A1").Select

推荐文章

神勇威武的消炎药 · excellvba引用计算机用户名,EXCEL VBA 取当前登录用户名的多种实现方法

2 月前

知识渊博的紫菜 · Excel 效能 - 優化效能阻礙的秘訣 | Microsoft Learn

2 月前

迷茫的马克杯 · 从VBA中的范围中删除特殊字符开发者社区

2 周前

知识渊博的热带鱼 · 在 Power BI Desktop 中使用自訂格式字串 - Power BI | Microsoft Learn

2 周前

体贴的麻辣香锅 · 英文文學與文化教學資料庫

5 月前

酷酷的水煮鱼 · 【開箱】可自改觸發行程的磁力軸鍵盤｜CORSAIR K70 MAX MGX

9 月前

健身的雪糕 · 《網路社會學通訊》第71期，2008年5月15日

9 月前

帅气的山羊 · With statement (VBA) | Microsoft Learn

1 年前

俊逸的牛腩 · 无数个骂娘的故事告诉你，千万别做技术合伙人！_不要当技术合伙人-CSDN博客

1 年前

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户