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

相关文章推荐

傲视众生的枇杷 · 了解Visual Basic ...· 1 月前 ·

读研的葫芦 · 听力残疾的分级标准是什么？· 4 月前 ·

腼腆的桔子 · 三国杀:羊徽瑜- 萌娘百科万物皆可萌的百科全书· 5 月前 ·

强悍的创口贴 · 长春中医药大学2024年招收台湾免试生招生简 ...· 1 年前 ·

绅士的水煮肉 · 全省首家景区外币代兑点在武当山启用_特色服务 ...· 1 年前 ·

大气的日记本 · 感受冰雪运动魅力中国数字冰雪运动会《极限巅峰 ...· 2 年前 ·

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

推荐文章

傲视众生的枇杷 · 了解Visual Basic 语法(VBA) | Microsoft Learn

1 月前

读研的葫芦 · 听力残疾的分级标准是什么？

4 月前

腼腆的桔子 · 三国杀:羊徽瑜- 萌娘百科万物皆可萌的百科全书

5 月前

强悍的创口贴 · 长春中医药大学2024年招收台湾免试生招生简章-长春中医药大学国际 ...

1 年前

绅士的水煮肉 · 全省首家景区外币代兑点在武当山启用_特色服务_湖北省分局

1 年前

大气的日记本 · 感受冰雪运动魅力中国数字冰雪运动会《极限巅峰》项目现已开赛 ...

2 年前

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户