小编Jos*_*oya的帖子

我有一个大约有 50 张纸的 Excel 文件，我在数据的开头插入了一行。现在我想写变量名。例如：在单元格中A1我想写"code"，在B1我想写"price"，依此类推直到F1。

我想对所有 Excel 工作表同时执行此操作。

我尝试使用此代码：

Sub mycode()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    Range("A1") = "code"
    Range("B1") = "denom"
    Range("C1") = "location"
    Range("D1") = "area_m2"
    Range("E1") = "price_$m2"
    Range("F1") = "zoning"
Next

End Sub

问题是我只得到了活动工作表的名称。我想要我的工作簿中所有工作表的名称。

你能建议一些修改吗？

提前致谢！

我想仅将几何标签应用于每个系列的最后一个值数据点。\n这是我的数据库：

这是我的代码：

paises <- c("Peru", "Brazil", "Colombia", "Ecuador", "Chile", "Argentina", "Uruguay", "Paraguay", "Bolivia")\n\ndata <- jhu_sitrep_import(source = "confirmed") %>%\n  jhu_sitrep_cleandb() %>%\n  filter(country_region %in% paises) %>%\n  filter(value>0) %>%\n  group_by(country_region) %>%\n  mutate(start = first(dates),\n         d_start = dates-start,\n         per = ifelse(country_region =="Peru","Per","Otros"),\n         max_cases = max(value)) %>%\n  filter(max_cases>30)\n\ndata %>%\n  filter(per =="Otros") %>%\n  ggplot(aes(x = d_start, y = value, group=country_region)) +\n  geom_line(aes(col = country_region)) +\n  geom_point(aes(col = country_region, shape = country_region)) +\n  geom_line(dat = data %>% filter(per=="Per"), col = "red") +\n  geom_label(aes(y = value, …