Question

我需要一个代码，它会找到包含值的最后一列，并按多个条件筛选该列。这是我到目前为止所提出的。

Dim LastCol As Integer
With ActiveSheet
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).column
End With
With ActiveSheet
    AutoFilter Field:=1, Criteria1:=Array("Age*", "Weight*"), 
Operator:=xlFilterValues

Answer 1

首先，我建议您声明工作表对象。我将您的# Read in libraries library(ggplot2) library(maps) library(maptools) library(ggmap) # Create mapping objects world <- map_data("world2") world$long <- world$long state_dat <- map_data("state") canada <- world[world$region==c("Canada"),] map_dat <- rbind(state_dat, canada) # Create custom shapes, sizes, colors pt_colors=c("red", "blue", "grey", "green") shapes = c(120, 22, 24, 21) shape_size = c(1.1, 0.8, 1, 1) # Create lat/long dataframe xy <- data.frame(Dataset=c("GBIF","Flower","GBIF","Leaf","DNA","GBIF","GBIF","Leaf","GBIF","GBIF","DNA","GBIF","DNA","GBIF","GBIF","Leaf","GBIF","GBIF","GBIF","DNA"), lat=c(38.89450,34.45300,39.86556,30.38818,28.74590,33.78527,41.23439,30.37935,41.38250,40.60648,30.87580,40.56425,28.75000,41.52666,35.46451,30.73621,38.50221,33.70335,38.98000,29.61100), long=c(-77.06292,-84.22643,-79.50248,-84.64519,-81.47860,-84.37109,-81.46374,-86.17667,-72.10861,-74.53538,-84.41520,-74.86654,-81.47750,-73.15833,-78.89952,-86.73095,-78.40308,-86.70289,-77.03917,-81.78740) ) # Create base map p0 <- ggplot() + geom_polygon(data=map_dat,aes(x=long,y=lat,group=group, fill=region),fill="white",color="black", show.legend=FALSE)+ coord_map("gilbert",xlim=c(-60,-97),ylim=c(15,47.5)) +#mollweide is pretty good labs(x=expression("Longitude"*~degree*W), y=expression("Latitude"*~degree*N)) + theme(panel.border = element_rect(colour = "black", fill=NA, size=1), plot.margin=unit(c(0.25,0.25,0.25,0.25),'inches'), legend.position='none') + theme(rect = element_blank()) # Add points to the map p1 <- p0 + geom_point(data=xy,aes(x=long,y=lat,fill=Dataset)) + scale_color_manual(values=pt_colors) + scale_shape_manual(values=shapes) + scale_size_manual(values=shape_size)变成了一个功能。

试试这个：

LastCol

使用Option Explicit Function lastCol(ByVal ws As Worksheet, Optional ByVal row As Variant = 1) As Long With ws lastCol = .Cells(row, .Columns.Count).End(xlToLeft).Column End With End Function Sub test() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) With ws.UsedRange .AutoFilter Field:=lastCol(ws), Criteria1:=Array("Age*", "Weight*"), Operator:=xlFilterValues End With End Sub，ActiveSheet，ActiveCell，.Select，.Selection等对您的代码来说很少有用。在极少数情况下它很有用，但绝大多数时候它都是调试的噩梦。

使用值查找并过滤最后一列

1 个答案: