小编Dav*_*ens的帖子

我需要为Excel列中的单元格指定不同的颜色,这样第一个单元格为白色,第二个单元格稍暗,第三个单元格比前一个单元格更暗等.以下是指向.png文件的链接:https ://dl.dropboxusercontent.com/u/41007907/gradientColumn.png

我怎么能快速做到这一点？有快捷命令吗？

我目前有一段VBA代码,用于查找左侧的前两个字符:

Range("EB5").Select
ActiveCell.FormulaR1C1 = "=LEFT(Input!R[-2]C[-92],2)"
Range("EB5").Select
Selection.AutoFill Destination:=Range("EB5:EB" & rownumfinal)

然而,我希望这能找到左边的字符,直到有空格.

任何人都可以建议如何做到这一点？

我试图将宏限制为特定的测试!工作表当我激活下面粘贴的宏时,我在测试中!工作表,宏工作.但是,当我尝试在不同的工作表上激活宏时,我收到一个错误.我是否需要修改VBA代码才能使其工作在工作簿中的任何其他工作表？谢谢

Sub Test ()
' Test Macro
'
' Keyboard Shortcut: Ctrl+Shift+B
'
  Range ("Test!B1").Select 
  Selection.ClearContents
  Range ("Test!B2").Select
  Selection.ClearContents
  Range ("Test!B3").Select
  Selection.ClearContents
End Sub

为什么这不起作用？运行时错误91？

Dim fornameCurr As String
Dim surnameCurr As String
Dim rowCurr As Long

rowCurr = 13
fornameCurr = Activesheet.Cells(rowCurr, 1)    << ERROR HERE
surnameCurr = Activesheet.Cells(rowCurr, 2)