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

相关文章推荐

帅气的山羊 · With statement (VBA) ...· 3 周前 ·

活泼的海龟 · Macos终端常用的命令行指令总结_maco ...· 4 月前 ·

发呆的皮带 · 在python中用string函数写入txt ...· 9 月前 ·

傲视众生的桔子 · ComboBox.SelectionBoxI ...· 9 月前 ·

大方的长颈鹿 · 解决多个ajax页面请求，页面loading ...· 1 年前 ·

会搭讪的领结 · 物联网 - 使用 C++ 在 Visual ...· 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

推荐文章

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

3 周前

活泼的海龟 · Macos终端常用的命令行指令总结_macos 命令行-CSDN博客

4 月前

发呆的皮带 · 在python中用string函数写入txt文本文件，I love python字符串 - CSDN文库

9 月前

傲视众生的桔子 · ComboBox.SelectionBoxItem Property (System.Windows.Controls) | Microsoft Learn

9 月前

大方的长颈鹿 · 解决多个ajax页面请求，页面loading阻塞问题-CSDN博客

1 年前

会搭讪的领结 · 物联网 - 使用 C++ 在 Visual Studio 中开发 Azure 连接的 IoT 解决方案 | Microsoft Learn

1 年前

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户