大家好,我在 VB 中使用 Excel 2010
好的,所以我有一个问题,我必须将一列中的粗体单元格值复制到另一列中,并且要复制相同的值,直到它再次碰到带有粗体单元格值的行,然后该值接管并复制到另一个粗体值等和复制数字的前 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
因此,将粗体值粘贴到每个常规(非粗体)值上,直到下一个粗体值,然后复制该值,然后将该值粘贴到常规值上。希望这能更好地解释它。
任何帮助将不胜感激