0

みなさん、こんにちは。VBでExcel2010を使用しています。

わかりました。太字のセルの値を列から別の列にコピーする必要があり、同じ値を太字のセルの値で行に再びヒットするまでコピーする必要があります。その後、その値が引き継がれ、別の列にコピーされます。太字などAND数字の最初の2桁（または数字はテキストとして保存されていると思うので文字）をコピーする場合は削除されます。

これはできますか？

太字の値を別の列にコピーするための次のコードを見つけました。

Sub yTekhed()
    For Each cell In [A30:A2557]
        If cell.Font.Bold = True Then
            Debug.Print cell.Row
            cell.Copy Range("I" & Range("I65536").End(xlUp).Row + 1)
        End If
    Next cell
End Sub

文字の削除を理解しました。式=RIGHT（A1; LEN（A1）-2）があります。

しかし、それは私が得た限りです

私はまだ通常より太字をコピーすることはできません。だから私が持っていると言う：

08479

コード

082222

093334

084213

08572

コード

093212

012321

482123

ペーストを次のように見せたい

08479

08479

08479

08479

08572

08572

08572

08572

したがって、次の太字の値まですべての通常の（太字ではない）値に太字の値を貼り付け、次にその値をコピーしてから、その値を通常の値に貼り付けます。これがそれをもう少しよく説明することを願っています。

どんな助けでも大歓迎です

4

1 に答える 1

0

これでうまくいくはずです：

Sub yTekhed()
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 1 To LastRow
        If Range("A" & i).Font.Bold = True Then
            Range("A" & i).Copy Range("B" & i)
            x = i
        Else
            Range("A" & x).Copy Range("B" & i)
        End If
    Next i

End Sub
于 2012-11-05T08:35:52.063 に答える